Select Code to Download

elsif ($self->{"proto"} eq "tcp")           
{
...
  croak("Can't get tcp echo port by name");
  $self->{"fh"} = FileHandle->new();
}

#!/usr/bin/perl 
 
...
$p->close();

Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 
+16 at /usr/lib/perl5/5.00503/i386-linux/Socket.pm line 295.