Select Code to Download

opendir(MYDIR, $dirname);
while (condition)    #condition ~ 1, loop basically forever
...
# more stuff...
closedir(MYDIR);

 my @mail = grep { $_ ne '.' and $_ ne '..' } readdir INDIR;

 my @mail = grep { $_ ne '.' and $_ ne '..' } readdir MYDIR;