use strict;
use File::Find;

my $dir = shift || '.';
		
unless (-d $dDir) {
      die "Directory '$dir' is not a Directory.\n";
  }
    

find(\&dirSize, $dir);

sub dirSize {
if(-d $_)
{
   print "$_\t$File::Find::dir\n";
}
}