Lenguaje perl

Hola de nuevo como siempre
En esl siguente posts les traigo dos ejemplos muy sencillos de codigo en perl
Uno se trata de la famosa serie de fibonassi y la otra de numeros primos donde le agregamos hasta que numero queremos o el limete:

Codigo de fibonsasii:
#!c:/perl/bin/perl.exe
print "FIBONASI\n:";
$a=1;
$b=0;
$c=0;
$x;
$i;

print "DIME CUANTOS NUMEROS DE FIBONASI QUIERES: \n";
$x = <STDIN> ;
chomp ($x);
for ($i=0; $i<$x; $i++) {
$c = $a + $b;
print "$c\n";
$b = $a;
$a = $c;
}

Codigo de los numeros primos:
#!c:/perl/bin/perl.exe


# El valor de n
print "HASTA QUE NUMERO QUIERE VERIFICAR SI ES PRIMO O NO\n";
$n = <STDIN> ;
chomp ($n);
for ( $i=1; $i<=$n; $i++ ) {
$p[$i] = $i;
1
}
$k = int( sqrt($n) );
$i=2;
while ( $i <= $k ) {
while ( $p[ $i ] == 0 ) {
$i ++;
}

for ( $j=2; $j<=$n; $j++ ) {
$a = $i * $j;
$p[ $a ] = 0;
}
$i++;
}

for ( $i=1; $i<=$n; $i++ ) {
if ( $p[$i] != 0 ) {
printf ( "%d\n", $p[$i] );
}
}

// El codigo de los numeros primos utilize cadenas para guardarlo y al final imprimirlos juntos