#!/usr/local/bin/perl
###############################################################################
# Round a number 
#    Receives: $num   - any scalar number
#              $dec   - (optional) number of decimal points, 0 for whole num 
#              $up_dn - (optional) "up" or "down"
###############################################################################
#
($num, $dec, $up_dn) = @ARGV;

$dec = ($dec > 0) ? $dec * 10 : 1;

$fraction = 0.5;
if ($up_dn =~ /^u/i) { $fraction = 1 };
if ($up_dn =~ /^d/i) { $fraction = 0 };

print "Rounding the number $num $up_dn to nearest ${dec}th: \n";
print int($num * $dec + $fraction) / $dec, "\n";