use Locale::Currency::Format;
print currency_format('EUR', 1000.25) . "\n";