$perl -MMath::Round -e "print nearest(0.01, 3.14159)"
3.14