{filelink=15267#}

#!/usr/local/bin/perl

use File::Find;
@ARGV = ("C:\\BD") unless @ARGV;
# stocker la somme de tous les fichiers des répertoires et sous répertoires
my $somme_octet = 0;
find sub { $somme_octet += -s }, @ARGV;
print "@ARGV contient $somme_octet octets\n";