#!/bin/perl
# Parcours le ou les fichiers et affiche le nombre de lignes lues
$i=0;
while (<>) {
   $i++;
}
print "Nombre de lignes : $i\n";