$server = IO::Socket::INET->new(...) ;
abort("Can't connect to news server: $!") unless $server ;
$socket = IO::Select->new($server) ;

my $linebuffer;

# send a command to the server, 1,2, or 3 are success responses.
##  This really can't hang, so we can just go for it [no timeout]
sub command
{   my $cmd = "$_[0]\r\n" ;
    print $server $cmd ;
    $linebuffer = "" ;
    my $resp = getline() ;
    return undef if $resp !~ /^[123]/ ;
    return $resp ;
}
 
# return a multi-line response from the server
##  We return it a line at a time with timeouts if the server barfs
sub multi
{   my $cmd = $_[0] ;   
    if ($cmd) 
    {   return (command($cmd)) ; }
    return getline() ;
}

sub getline
{   my @readstatus ;
    if  ($linebuffer =~ s/(^.*?\n)// )
    {   return $1 ; }
    while(@readstatus = $socket->can_read(2)
        and sysread $server, $linebuffer, 4096, length $linebuffer)
    {   next unless $linebuffer =~ s/(^.*?\n)// ;
        return $1 ;
    }
    # if you get here, something went wrong!
    warn(@readstatus ? "socket closed\n" : "timeout\n") ;
    return undef ;
}
[download]

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