Select Code to Download

print $server "FOO request\n";

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

my $client = $server->accept;
my $request = <$client>;
...
# generate a response
print $client $response;
close $client;