while (defined($line = <SOCK>)) {
               print $line;
           }