use OTP qw(challenge generate);

die "usage: ./generate_otp.pl runs seed pass_phrase\n" unless @ARGV == 3;

for ($i = 1; $i <= $ARGV[0]; $i++) {
  print challenge($i, $ARGV[1]), ": ", generate($i, $ARGV[1], $ARGV[2]), "\n";
}