Рекурсивный алгоритм вычисления факториала на перле.

#!/usr/bin/perl
# рекурсивный метод вычисления факториала

if ($i > 1){
$result = $i * recFactorial($i-1);
}
else{
$result = 1;
}
return $result;
}