#!/usr/bin/perl -w use strict; my $prec = 5; my $number = 32; $\="\n"; print int(($number/$prec)+.5)*$prec;