print $server "FOO request\n";

my $response = <$server>;
# or my $bytes_read = read($server, $response, 4192);
# or whatever--basically, just read from the server

##</code><code>##

my $client = $server->accept;
my $request = <$client>;
# do something with the request
# generate a response
print $client $response;
close $client;