while (<$sock>) {
     print;
}