some-usable-scripts/wc.pl

#!/usr/bin/perl -w

# This script displays the number of lines in a file

use strict;

die "un argument svp ! " if !defined ($ARGV[0]);

my $i=0;
open(P,"< $ARGV[0]") || die "erreur ouverture $!";

while (<P>)
{
	$i++;
}
close(P);
print "nb de lignes = $i \n";