Select Code to Download

use strict;

...
}

closedir THISDIR;

use strict;

...
my $i = 0;
print map { "[". $i++. "] $_\t" } grep { -d $_ } (readdir THISDIR);
closedir THISDIR;