Select Code to Download

 % perl -le "print 4.35*100-435"
-5.6843418860808e-014

sub round {
    my( $num, $prec )= @_;
...
    $num -= ($num<=>0)   if  $num == $frac  &&  $num % 2;
    return $num*$prec;
}