#!/usr/local/bin/perl
#
use strict;
use warnings;

use Rounders;

my $val = 724934.817084;
print qq{Original value - $val\n};

print
   q{Rounded to whole number - },
   rndZero($val),
   qq{\n},
   qq{Rounded to decimal places\n};

printf qq{     %2d - %s\n},
   $_, rndPlaces($val, $_)
   for -4 .. 4;