#---------------------------------------------
#!/usr/bin/perl -w
# ouverture en lecture du fichier des comptes utilisateurs
#Ici j'ai changé le fichier pour en mettre un qui existait déjà
#J'ai donc choisi de lire avec un script ce script lui-même
open F, "1.pl";
# on aurait pu utiliser des variables :
# $fichier="/etc/passwd"; open F, $fichier;
while ($ligne = <F>) {
	print "ligne $. : $ligne";
}
close F;
#---------------------------------------------