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