Quick Currency Quotes with Perl (for use with Ledger-CLI)

getquote.pl

#!/usr/bin/env perl

$timeout = 60;

use Finance::Quote;
use POSIX qw(strftime localtime time);

die "Usage: $0 FROM TO\n" unless defined($ARGV[1]);

my $q = Finance::Quote->new;
my $exchange_rate = $q->currency($ARGV[0],$ARGV[1]);
$q->timeout($timeout);

if ($exchange_rate, "price") {
    print "P", " ";
    print strftime('%Y/%m/%d %H:%M:%S', localtime(time()));
    print " ", $ARGV[0], " ", $exchange_rate, " ", "\n";
} else {
    exit 1;
}