Select Code to Download

use strict;
use warnings;
...

$cache->set("$currency_from:$currency_to", $ratio);
print "$amount $currency_from = ", $amount * $ratio, " $currency_to\n"
+;

$ perl exchange.pl 100 usd eur
100 USD = 70.22 EUR