Use Socket::IPPROTO_TCP instead of getprotobyname
Merge pull request #4 from Hugmeir/master

Use Socket::IPPROTO_TCP instead of getprotobyname