#!/usr/bin/perl -w

$compteur=0;

while (<>)
{
	$compteur++;
}

print "\nNombre de lignes : $compteur\n\n";