#!/usr/bin/perl 
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Net::NNTP;
                          # Newsserver aus Environment-Variable
my $nntphost = $ENV{NNTPSERVER}; 
                          # News-Host überprüfen
die "Unknown host $nntphost" unless gethostbyname($nntphost);

                          # News Agent erzeugen und mit 
	                  # NNTP-Host verbinden
$newsagent = Net::NNTP->new($nntphost) || 
                                  die "Cannot connect to host";  

                          # Gruppe setzen und Artikelnummern 
                          # holen
($nof_articles, $first, $last, $groupname) = 
                             $newsagent->group("news.answers");

                          # Durch alle Artikel der Newsgroup 
                          # iterieren
for($newsagent->nntpstat($first); $newsagent->next();) {
    ($subjectref) = grep { $_->[0] eq "Subject" } 
	        map { [/^(\S+): (.*)/] } @{$newsagent->head()};
    print "Subject: $subjectref->[1]\n";
}

$newsagent->quit();