$ perl -wE 'say fact(102); sub fact {my $c = shift; return 1 if $c == 1; no warnings "recursion"; return $c *fact($c-1)}'
9.61446671503512e+161