Help for this page
my $x; $x = 0;{my $f = fact($x); ... $_[0] <= 0 and return 1; return $_[0] * fact($_[0] - 1); }
my $x; $x = 0; ... }; }