Use Socket::IPPROTO_TCP instead of getprotobyname