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