Select Code to Download

#!/usr/bin/perl -w

...
       print "  -- FOUND example: $file\n";
     }
   }

open (DIR, $somedir);

opendir (DIR, $somedir);