Select Code to Download

use File::Find;

use File::Find;

...
{
    #.....
}

use File::Find;

...
{
    print if -d;
}

print if -d;

print $_ if -d $_;

sub print_name_if_dir
{
...

    print $file if -d $file;
}

use File::Find;

my $dir = # whatever you want the starting directory to be

find(sub {print if -d}, $dir);

use File::Find;

find(sub {print $File::Find::name if -d}, ".");

use File::Find;

find({wanted => sub {print $File::Find::name if -d}
      no_chdir => 1}, ".");

#!/usr/local/bin/perl -w

...
{
    printf "%10d %s\n", $size{$_}, $_;
}