|
|  stuff before
opendir(DIR,"/some/path/where/the/folders/live") or die $!;
my @folders=();
while(my $entry = readdir(DIR)){
     next if ( $entry eq "." ) || ($entry eq ".." );
     next unless -d $entry;
     push @folders,$entry;
} 
|   rest of code 
# untested software, do not use to aim phaser banks.