package Number::Formatted;
use Number::Format;
my $format = new Number::Format (
    thousands_sep => '.',
    decimal_point => ',' );
use overload
    '""' => sub { $format->format_number( ${$_[0]} ) },
    '+' =>  sub { 
        my $num = ref( $_[1] ) ? ${$_[1]} : $_[1];
        $num = ${$_[0]} + $num;
        return bless \$num, Number::Formatted;
    },
    fallback => 1;
sub new { 
    my $num = $format->unformat_number( $_[1] );
    return bless \$num, $_[0];
}

package main;

my $n = new Number::Formatted ( '1.234,56' );
my $m = new Number::Formatted ( '123,45' );

print $n, "\n";
print $n + 10, "\n";
print $n + $m, "\n";

# 1.234,56
# 1.244,56
# 1.358,01