Help for this page
sub fact { my ($n) = @_; ... } fact($n);
sub fact { my ($n, $prod) = @_; ... } fact($n);