Aks the CPAN:)

  use Number::Format;
  my $de = new Number::Format(-thousands_sep   => '.',
                              -decimal_point   => ',',
                              -int_curr_symbol => 'DEM');
  my $formatted = $de->format_number($number);
[download]

And while you're at it, have a look at Number::Format::Calc.