my $iaddr = &inet_aton("$sname") || return 5;
  socket(SH,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
  connect(SH,sockaddr_in($port,$iaddr))
    || return 6;