Select Code to Download

my $found;
while ( my $file = readdir(DIR) ){
...
}
closedir(DIR);
print "Found: $found" if $found;