#!/usr/bin/perl -w

# Ejercicio 5: Factorial recursivo.

print "Introduce un numero natural: \n";

$numero = <STDIN>;

chomp ($numero);

$fact = factorial($numero);

print "\n El factorial de $numero es: \n\t$fact\n";

exit;

sub factorial {

if ($_[0] == 1) {return(1)}

else {return($_[0] * factorial($_[0]-1))}

}