while (<$sock>) {
     print $sock $request;
     print;
}