Select Code to Download

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