#!/usr/bin/perl -w
# Utilisation : wc.pl fichier
open(F, "<$ARGV[0]") || die "Problème d'ouverture de fichier ! ";
$i = 0 ;
$i++ while(<F>);
close(F);
print "Nombre de lignes : $i \n";