Select Code to Download

    open(INPUT, 'file.dat');
    binmode(INPUT);
...
        print $sock $_;
    }
    close(INPUT);

        open(INPUT, '>file2.dat');
        binmode(INPUT);
...
          print INPUT $_;
        }
        close INPUT;