$ perl -wE 'say fact(102); sub fact {my $c = shift; return 1 if $c == 1; return $c *fact($c-1)}'
Deep recursion on subroutine "main::fact" at -e line 1.
9.61446671503512e+161