...
# 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;
...