my ($host, $port, $request, $proto) = ('tcp');