Usenet News: the News::NNTPClient module

 use News::NNTPClient; 
 
 $c = new News::NNTPClient;
 
 ($first,$last) = $c->group("alt.comp.perlcgi.freelance");
 
 foreach $artno ($first..$last){
    @article = $c->article($artno);
    print @article[0..5];
    print "Read? ";
    chomp($resp = <STDIN>);
    if($resp =~ /^y/i){
       print @article[6..$#article];
    }
    elsif($resp =~ /^q/i){
       last;
    }
 }