Select Code to Download

opendir(DIR, "$somedir") or die $!;
while(my $dirEntry = readdir(DIR)){
...
  }
}
closedir(DIR);

opendir(DIR, "$somedir") or die $!;
my @dir = readdir(DIR);
...
  }
}
closedir(DIR);