対象ディレクトリ以下のディレクトリサイズの一覧を取得する
use strict;
use warnings;
use Data::Dumper;
use File::Basename;
use File::Find;
my $dn = shift @ARGV;
my @dl = map{[basename($_),total($_)]} grep {-d} <$dn\*>;
print Dumper(@dl);
sub total{
my $target = shift;
my $sum = 0;
find(sub{ $sum += -s },$target);
return $sum;
}