#!/usr/bin/perl -w
use strict;
my $nb=0;
open(LS,"ls -l |") || die "$!";
while (<LS>)
{
print ;
$nb++;
}
close(LS);
$nb--; # à cause de la première ligne qui indique le total
print "nb d'objets : $nb\n";