$self->{"port_num"} = (getservbyname('echo', 'tcp'))[2] ||