/usr/share/doc/libfinance-quote-perl/examples/currency-lookup.pl is in libfinance-quote-perl 1.47-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #!/usr/bin/perl -w
use strict;
use lib '../lib';
use Finance::Quote;
# This script demonstrates how currencies can be converted using
# Finance::Quote.
# Example usage: currency-lookup.pl USD AUD
# (Converts from US Dollars to Australian Dollars)
die "Usage: $0 FROM TO\n" unless defined($ARGV[1]);
my $q = Finance::Quote->new();
my $exchange_rate = $q->currency($ARGV[0],$ARGV[1]);
die "Urgh! Nothing back\n" unless $exchange_rate;
print $ARGV[0]."->".$ARGV[1]." = ".$exchange_rate."\n";
|