#!/usr/local/bin/perl

	use utf8;

	use Locale::Currency;
	use File::Basename;
	use Cache::FileCache;
	use Finance::Quote;
	use POSIX;

	print "FOO: ". get_price("CHF","EUR","50") . "\n";

sub get_price {
	
	my ($currency_from,$currency_to,$amount) = @_;
	
	my ($filename) = fileparse($0, '.pl');

	my $cache = Cache::FileCache->new({
		cache_root         => "$ENV{HOME}/.$filename",
		default_expires_in => '1 day',
	});

	my $quote = Finance::Quote->new();

	my $ratio = $cache->get("$currency_from:$currency_to");

	$ratio = $quote->currency($currency_from, $currency_to)
		unless defined $ratio;

	die "sorry, cannot convert from $currency_from to $currency_to\n"
		unless defined $ratio;

	$cache->set("$currency_from:$currency_to", $ratio);
	
	return $amount * $ratio
	
}