#!/usr/bin/perl
print "Vamos a calcular el factorial. \n";
print "\n";
print "De que numero quieres calcular su factorial?: \n";
print "\n";
$numero = <>;
$total = 1;
for($i = 1 ; $i <= $numero ; $i++ ) {
$total = $total * $i;
}
print "El factorial es: ", $total;
print "\n";