Select Code to Download

my $fact;
$fact = sub {
...
  return $n if $n <= 1;
  return $n*fact($n-1);
}