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