Select Code to Download

my $file;
while($file = readdir(DIR)) {
...

my $file;
while ($file = readdir(DIR))
...
         last;
   }
}