#!C:\perl\bin\perl.exe -wuse strict;use warnings;while (1){ print "dijite numero: "; my $pre = <STDIN>; my $num1 = 0; my $num2 = 0; my $suma = 0; for (my $i = 1; $i <= $pre; $i++) { if ($i eq 2) { $num1 = 1; $num2 = 0; } $suma = $num1 + $num2; $num1 = $num2; $num2 = $suma; } print "el fibonacci es $suma\n"; }