A Perl Function

sub fac {
    my ($n) = @_;
    if ($n == 0) {
      1;
    }
    else {
      $n * &fac($n-1);
    }
}
print fac(5), "\n";