Select Code to Download

use File::Find;
my @DIR;
my $dir = '/home/www/';
find( \&wanted , $dir);
sub wanted { push(@DIRS, $File::Find::dir."/".$_) if -d $_; }