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);