my($server_port) = getservbyname('talk','tcp');