use Math::BigFloat;

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

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