Looks like Locale :: Object :: Currency from CPAN contains what you need. However, it does not appear to have been updated since 2007.
use Locale::Object::Currency;
use Data::Dumper;
use strict;
use warnings;
my $bucks = Locale::Object::Currency->new( country_code => 'us' );
print Dumper( $bucks->symbol, $bucks->code, $bucks->name );
source
share