Select Code to Download

   my @files=grep {$_ ne '.' && $_ ne '..'}
   @files=readdir(DIR);

   my @files=grep {$_ ne '.' && $_ ne '..'} readdir(DIR);