gistfile1.txt

$ cat test.pl
use strict;
use warnings;

use Authen::OATH;
use Data::Dumper;

my $oath = Authen::OATH->new();
my $totp = $oath->totp( "1234567890", 1332083784 );
print Dumper($totp);
my $hotp = $oath->hotp( "1234567890", 1 );
print Dumper($hotp);

$ perl test.pl
$VAR1 = '142045';
$VAR1 = '263420';