Lister le contenu d'un répertoire et ses sous-répertoires :
VERSION UNIX :

#!/usr/bin/perl

use strict;
my $nb_arg = @ARGV;
if &#40;&#40;$nb_arg > 1&#41; or &#40;$nb_arg <1&#41;&#41; &#123;
print "\nNombre...