Select Code to Download

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

my $x;
$x = 0;
...
 };
  }