Select Code to Download

  opendir(DIR, 'c:/perl/test') or die "c:/perl/test: $!";
      ...
      open(MYFILE, ">myfile.txt") or die "myfile.txt: $!";
      open(THEFILE, "<$file") or die "$file: $!";
      ...

    close(MYFILE) or die "c:/perl/test: $!";