perl -MFile::Find -wle 'find(sub{print $File::Find::name if -d'},"/hom
+e/user"})'
[download]

-enlil

use File::Find::Rule;

print "$_\n" for find(directory => in => $ENV{HOME});
[download]

_________
broquaint

A lot depends on your needs. If this was a throw away script, You could do something ugly like:

system('ls -Rl ~| grep ^d');
[download]

You could look at File::Find and the -d function

If you couldn't figure out File::Find, you could do something like this:

my $DIE_MSG="FATAL ERROR";

sub get_bytes_in_file_list {
    my @files = @_;
    my $size=0;

    foreach my $file (@files) {
        die "can't read $file $DIE_MSG"
          if ( !-r $file );
        if ( -d $file ) {
            opendir( DH, $file )
              or die "$! bad open directory $file $DIE_MSG\n";
            my @sub_files =
              map { "$file/$_"; }
              grep { $_ ne '.' && $_ ne '..'; } readdir(DH);

            closedir(DH) or die "$! couldn't close dir:$file\n$DIE_MSG
+";
            $size += get_bytes_in_file_list(@sub_files)
              if (@sub_files)    # don't check empty dir;
        }
        else {
            $size += ( stat($file) )[7];
        }
    }
    return $size;
}
[download]