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