Select Code to Download

#!d:\perl\bin\perl.exe

...
          -M "$path\\$_" > 1
         } readdir(Directory);
closedir(Directory);

#!d:\perl\bin\perl.exe

...
  }
}
closedir(Directory);