Perl: Trouver la taille d’un dossier

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