gauth.pl

#!/usr/bin/env perl

use strict;
use Authen::OATH;
use Term::ReadKey;
use Clipboard;

my $pw;    # password
my $secret_plain;
my $oath;
my $totp_token;
my $pass_with_token;

print "Enter Password (not to be stored anywhere): ";
ReadMode("noecho");
chomp( $pw = <STDIN> );
ReadMode('restore');

$secret_plain = `gpg -dq $ARGV[0]`;
$oath         = Authen::OATH->new();
$totp_token   = $oath->totp($secret_plain);

$pass_with_token = $pw . $totp_token;

$pass_with_token;

system("echo -n $pass_with_token | xclip");

print "\nPassword with token copied to middle mouse button clipboard\n";