in reply to Service: port to name

C'mon guys, give me a hard one. It's a core language feature: getservbyport(). 
print scalar getservbyport(23,"tcp"),"\n"
telnet

[download]

    -- Chip Salzenberg, Free-Floating Agent of Chaos

In Section Seekers of Perl Wisdom