($name, $aliases, $protocol_number) = getprotobyname("tcp");

​

print "Name = $name\n";

print "Aliases = $aliases\n";

print "Protocol Number = $protocol_number\n";

​