sub _round {
my $digits = shift;
my $num = shift;

my $add = 5 * (10 ** -($digits + 1));

$num += $add;

my ($int,$frac) = split /\./,$num;

$frac = substr($frac, 0, $digits);

$num = join '.', $int, $frac;

return $num;
}