[Perl] recursividad en perl

[Jorge Alejandro Adell]

segun mi pequeño script para verificar si perl admite la recursividad,
vi que no es posible esto. O tambien puede ser que este haciendo algo
mal.
Puede ser que perl no admita la recursividad.
Este fue mi experimento para verificarlo.

sub factorial
{
$num = $_[0] | 0;
if ( $num != 1)
{
$resultado = $num * factorial($num-1);
}
}

print factorial(5);

Devuelve 0