use Math::Round::Var;

my $rnd = Math::Round::Var->new(0.01); # rounds to two decimal places:
print $rnd->round(), "\n";

__END__

Use of uninitialized value in sprintf at .../Math/Round/Var.pm line 229.
0.00