while (1){
    $line = <$socket>;
    print $line;
}