I think what you're looking for is getservbyname instead of getprotobyname. For example, you may have something like this:

my($server_port) = getservbyname('talk','tcp');
[download]

Hope that helps!
--shendal