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 echo port by name");
  $self->{"fh"} = FileHandle->new();
}