use Math::BigFloat;
Math::BigFloat->accuracy(200); 
$x = Math::BigFloat->new(2); 
print $x->bsqrt();