use strict; use warnings; use 5.010; my $f = 1; my $i = 1; my $n = 5; #Aquí cambia el número que quiera utilizar. $f *= ++$i while $i < $n; say $f;