perl doc

petit exemple:

#/usr/bin/perl
use strict;
use warnings;

open(IN, "ls -alh |");
my $cpt = 1;