sub round { my($number) = shift; return int($number + .5); }