...
# This message is print, so I do get here!
# At the same tiome the server starts sending bars
$|++; # <-- Turns on automatic flusing after each write...
while (1) {
    $line = <SOCK>;
    print "\nGot1: ", $line;
...

##</code><code>##

...
$SIG{CHLD} = \&REAPER;
for ( ; $paddr = accept(Client,Server); close Client) {

 # This will correctly set the autoflushing...
 select(  ( select(Client), $|++ )[0]  );

 my($port,$iaddr) = sockaddr_in($paddr);
 my $name = gethostbyaddr($iaddr,AF_INET);
...