essaie ce script et utilise le à tes fin :

#!C:\Perl\lib\perl.exe

lecture("fich.txt");

sub lecture {
open IN, $_[0] or die "Impossible d'ouvrir le fichier $_[0] pour la cause suivante : $!\n";
my @infos_fichier;
@infos_fichier = <IN>;
my $i = 0;
my $long = @infos_fichier;
printf $long."\n";
while( $i < $long ){
print $infos_fichier[$i++]."\n";
}

close IN;
return $infos_fichier;
}



++