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

##</code><code>##

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