local $/ = "\0";                         # Read up to NUL.
while (defined(my $messg = <TSOCK>)) {
    chomp $messg;                        # Remove NUL.
    print "$messg\n";
    print TSOCK "Hello server!\n";
    TSOCK->flush;
}