I used Math::Currency:

use Math::Currency qw(Money $LC_MONETARY);
Math::Currency->format( $LC_MONETARY->{EUR} );
Math::Currency->format('MON_THOUSANDS_SEP', '\'');
print Math::Currency::Money(12345.67);
[download]

this code prints €12'345,67

HTH, Valerio