#!/usr/bin/perl -w
# ouverture en lecture du fichier des comptes utilisateurs
open F, "/etc/passwd"; 
# dans cygwin, on part de la racine / 
#puis on va vers etc et passwd 
#qui contient les infos sur les comptes utilisateurs
# on aurait pu utiliser des variables :
# $fichier="/etc/passwd"; open F, $fichier;
while ($ligne = <F>) { 
# boucle while permet de lire chaque ligne du fichier F
 print "ligne $. : $ligne";
}
close F;