sub round { my ($nr,$decimals) = @_; return (-1)*(int(abs($nr)*(10**$decimals) +.5 ) / (10**$decimals)) if $nr<0; return int( $nr*(10**$decimals) +.5 ) / (10**$decimals); }