use bigrat;

print int(4.39 * 100) . "\n";

my $a = 4.39, $b = 100;
print int ($a*$b) ."\n";

my $ans = $a*$b;
print $a*$b ."\n";
print int ( $ans ) ."\n";

##</code><code>##

perl imprecise.pl
439
439
439
439