Roffs d'Grain

Oi galera, beleza? Para um teste em um emprego me foi pedido para: Criar um programa em Perl que receba 1 parâmetro numérico e devolva a sequencia de Fibonacci com quantidade de eventos informado no parâmetro. Por exemplo: parâmetro = 10 O programa devolve x x x x x x x x x x eventos O que eu desenvolvi foi: #!/usr/bin/perl use 5.010; use strict; use warnings; my $a = 1; my $b = 0; print "Digite o parametro numerico para indicar o tamanho da sequencia de Fibonacci\n"; my $numX = <STDIN>; for(my $i=0;$i<$numX;$i++){ $b += $a; $a = $b - $a; print $b." "; } Como não sou um programador Perl e também não tenho muita familiaridade com a sequencia de fibonacci, gostaria da opinião do pessoal, para saber se está tudo certinho e em que eu poderia melhorar o código. Toda e qualquer dica é bem vinda!! :)