use Test::More *; is(''+(3.14-0.14), '3'); is(''+(3.14-0.12), '3.02'); is(''+(3.14-2), '1.14'); is(''+(1-3.4), '-2.4'); is(''+(1+3.4), '4.4'); is(''+(1*3.4), '3.4'); is(''+(0.1/0.5), '0.2'); done_testing();