C:\_32>perl -e "print cos(100000000.0)"
-0.36338508935581

##</code><code>##

C:\_32>perl -MMath::MPFR -e "$x=Math::MPFR->new(100000000.0);print cos($x)"
-3.6338508935569053e-1