01 Math::Round

http://search.cpan.org/dist/Math-Round/Round.pm

use warnings;
print round(-198.25), "\n"; # -198
print round(198.25), "\n";  # 198
print round(198.75), "\n";  # 199

use warnings;
print nearest(1, 198.25), "\n";    # 198
print nearest(0.1, 198.25), "\n";  # 198.3
print nearest(10, 198.25), "\n";   # 200
print nearest(0.1, -198.25), "\n"; # -198.3