use strict; use warnings; print "\n---------------Fibonacci---------------\n\n"; my ($a, $b) = ("0", "1"); print "Ingrese el rango de la secuencia:"; my $rango = <STDIN>; for my $num(0..$rango - 1) { print $a . "\n"; my $final = $a + $b; $a = $b; $b = $final }; exit;