probleme en script

bonjour tout le monde.
j'ai un script perl qui fait l'extraction de données à partir d'un fichier texte et puis il copie ces données dans un autre fichier texte.mais le problème c'est qu'il m'affiche une erreur au niveau de l'execution de ce script.ou puis spécifier le chemin du fichier à extraire?
voici le script:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl open FICHIER,"< lettre.txt" or die "Le fichier n'existe pas !"; open WRITER,"> decode.txt" or die "Le fichier ne peut être édité !\n"; $i=0; while ($ligne = <FICHIER>){ if($i%2){ print WRITER $ligne; } $i++; } close FICHIER; close WRITER; open FICHIER,"< decode.txt" or die "Le fichier n'existe pas !"; while ($ligne = <FICHIER>){ print $ligne; } close FICHIER;