http://www.perlmonks.org?node_id=338523


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

    -- Chip Salzenberg, Free-Floating Agent of Chaos