This module provide a function, an exemple of use:

print format_money(-123456789.123457, 'fr', 'frf');

will print "-123 456 789,12 FRF".

You can read the "pod" documentation.

You can download the module Locale/Formatmoney.pm (contextuel menu on the link / save link as).