Select Code to Download

open (DIR, $somedir);
while ($_ = readdir DIR) { 
...
    print "  -- FOUND example" . $1 . ".txt\n";
  }
}