El codigo :
Código
# !usr/bin/perl # Sucesion Fibonacci # Coded By Doddy Hackman in the year 2014 head(); my ( $uno, $dos ) = ( "0", "1" ); for my $num ( 0 .. $cantidad ) { my $final = $uno + $dos; $uno = $dos; $dos = $final; } copyright(); <stdin>; # Functions sub head { } sub copyright { } # The End ?