usd2aud.pl

usd2aud.pl

#!/usr/bin/env  perl
# Convert from USD to AUD.
# Time-stamp: <2009-03-15 19:55:57 claudine>

use strict;
use warnings;
use Carp;

use Finance::Quote;
use Getopt::Long;

# one argument: USD
my $usd;
GetOptions('usd|u=f' => \$usd) or croak();

# Quote object
my $q = Finance::Quote->new;

# update rate first
my $rate = $q->currency("USD","AUD") or croak();
print "USD/AUD rate is $rate\n";

# convert to AUD
my $aud = $usd * $rate;
print "US $usd = AU $aud\n";

1;

__END__