la somme de tous les fichiers des répertoires et sous répertoires
my $somme_octet = 0;
find sub { $somme_octet += -s },