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