RosettaCodeData/Task/Factorial/Perl/factorial-2.pl

sub factorial
{
  my $n = shift;
  ($n == 0)? 1 : $n*factorial($n-1);
}