#!/usr/bin/perl

use Finance::Quote;
$q = Finance::Quote->new;

$q->timeout(60);

$conversion_rate = $q->currency("AUD","PHP");

print "$conversion_rate\n";