use File::Find;
use strict;

foreach my $dir (@ARGV) {
   my $total;
   find(sub { $total += -s }, $dir);
   print "$dir: $total\n";
}

##</code><code>##

use File::Find;
use File::Spec;
use strict;

my $cur = File::Spec->curdir;
my $up  = File::Spec->updir;

foreach my $start (@ARGV) {
   my @dirs = &find_subdirs($start);

   foreach my $dir (@dirs) {
      my $total = 0;
      find sub { $total += -s }, $dir;
      printf "%-20s %d\n", $dir, $total;
   }

   print STDERR "$start: No subdirectories\n" unless @dirs;
}

sub find_subdirs {
   my $start = shift;

   unless(opendir(D, $start)) {
      warn "$start: $!\n";
      next;
   }

   my @dirs =
      map {
          -d "$start/$_" &&
         !-l "$start/$_" &&
         $_ ne $cur && $_ ne $up
            ? "$start/$_" : ()
      }
      readdir(D);

   closedir(D);

   @dirs;
}