Факториал числа

# Факториал числа

sub factorial {
    my ($n) = @_;
    return 1 if ($n<=1);
    $n*factorial($n-1);
}