# Format: getprotobynumber(NUMBER);($name, $aliases, $proto) = getprotobynumber(0);print "name=$name\taliases=$aliases\t$protocol number=$proto\n";