The Data::Currency module provides basic currency formatting and
conversion:
my $price = 1.23;
my $currency = Data::Currency->new($price);
print $currency->convert('CAD')->as_string;
Each Data::Currency object will stringify to the original value
except in string context, where it stringifies to the format
specified in format.
