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.