Help for this page

Select Code to Download


  1. or download this
    $server = IO::Socket::INET->new(...) ;
    abort("Can't connect to news server: $!") unless $server ;
    ...
        warn(@readstatus ? "socket closed\n" : "timeout\n") ;
        return undef ;
    }
    
  2. or download this
    die "command error\n" unless multi("command") ;
    while (1)
    ...
        last if $line =~ /^./ ;
        {process the line}
    }