programming-examples/perl/Network/The getservbyname function translates the service port name to its corresponding port number.pl

#Format: getservbyname(NAME, PROTOCOL);

($name,$aliases,$port,$protocol)=getservbyname('telnet', 'tcp');