RosettaCodeData/Task/Pathological-floating-point-problems/Perl/pathological-floating-point-problems-3.pl

use bignum;

$a = 77617;
$b = 33096;
printf "%0.16f\n", 333.75*$b**6 + $a**2 * ( 11*$a**2 * $b**2 - $b**6 - 121*$b**4 - 2) + 5.5*$b**8 + $a/(2*$b);