use Math::BigFloat;

my $num = Math::BigFloat->new (0.006185625);

print "Before: $num\n";
$num->fround (6, 'odd');
print "After:  $num\n";

##</code><code>##

Before: 0.006185625
After:  0.00618563