#!/usr/bin/perl my $i = 1.255; print int($i*100+.5)/100; print "\n";