getservent
setservent STAYOPEN
endservent
These functions do the same thing as their like-named system library routines - see getservent(3). They iterate through the /etc/services file or its equivalent. The return value in list context is:
($name, $aliases, $port_number, $protocol_name)
In scalar context, getservent returns only the service port name.