Select Code to Download

foreach my $subdir (my @dirlist) { 
#...

my @iresdir = readdir IRESDIR;
foreach my $dir (@iresdir) {
    push (my @dirlist, $dir);
}
closedir IRESDIR;