Locale::Currency::Format - Perl functions for formatting monetary values
use Locale::Currency::Format;
$amt = currency_format('USD', 1000); # => 1,000.00 USD
$amt = currency_format('EUR', 1000, FMT_COMMON); # => EUR1.000,00
$amt = currency_format('USD', 1000, FMT_SYMBOL); # => $1,000.00
$sym = currency_symbol('USD'); # => $
$sym = currency_symbol('GBP', SYM_HTML); # => £
$decimals = decimal_precision('USD'); # => 2
$decimals = decimal_precision('BHD'); # => 3
$thou_sep = thousands_separator('USD'); # => ,
$thou_sep = thousands_separator('EUR'); # => .