Select Code to Download

$server = IO::Socket::INET->new(...) ;
abort("Can't connect to news server: $!") unless $server ;
...
    warn(@readstatus ? "socket closed\n" : "timeout\n") ;
    return undef ;
}

die "command error\n" unless multi("command") ;
while (1)
...
    last if $line =~ /^./ ;
    {process the line}
}