perl -MMath::MPFR=:mpfr -e "Rmpfr_set_default_prec(10000); $foo = Math::MPFR->new(5); $bar = $foo ** 0.5; print $bar, $/, $bar ** 2, $/"