#!/usr/bin/perl -w
# ouverture en lecture du fichier des comptes utilisateurs
open F, "/etc/passwd";
# on aurait pu utiliser des variables :
# $fichier="/etc/passwd"; open F, $fichier;

#Tant qu'on peut associer une ligne du fichier référencé sous le nom "F" (/etc/passwd) à la variable $ligne, on exécute le bloc d'instructions
while ($ligne = <F>) {
	#On affiche "ligne ", suivi du numéro de la ligne courante ($.), suivi de " : ", et suivi du contenu de la variable $ligne
	print "ligne $. : $ligne";
}
#On ferme le fichier des comptes utilisateurs
close F;