use Math::Round;
print nearest(.01, $var);
print round($var);