elsif ($self->{“proto”} eq “tcp”)
{
	$self->{“proto_num”} = (getprotobyname(‘tcp’))[2] ||
		croak(“Can’t get tcp protocol by name”);
	$self->{“port_num”} = (getservbyname(‘echo’, ‘tcp’))[2] ||
		croak(“Can’t get tcp protocol by name”);
$self->{“fh”} = FileHandle->new();
}

##</code><code>##

elsif ($self->{“proto”} eq “tcp”)
{
	$self->{“proto_num”} = (getprotobyname(‘tcp’))[2]; # ||
#		croak(“Can’t get tcp protocol by name”);
	$self->{“port_num”} = (getservbyname(‘echo’, ‘tcp’))[2]; # ||
#		croak(“Can’t get tcp protocol by name”);
$self->{“fh”} = FileHandle->new();
}