while(1){
    $Line = <$Sock>;