while(($name, $aliases, $port_number, $protocol_name) = getservent()) {

   print "Name = $name\n";

   print "Aliases = $aliases\n";

   print "Port Number = $port_number\n";

   print "Protocol Name = $protocol_name\n";

}

​