use Math::BigFloat;
print 'Math::BigFloat'->new($num)->bfround(-$dig);