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

use Net::NNTP;
                   # News Agent erzeugen
$newsagent = Net::NNTP->new($ENV{NNTPSERVER});  

($total, $first, $last) = $newsagent->group("de.alt.tv.misc");

                   # Subject-Hashreferenz:
		   # Keys:   Artikelnummern der Newsgroup
		   # Values: Subjects als Text
$subjects = $newsagent->xhdr('Subject', $first, $last);

                   # Alle Subjects nach Artikelnummern
                   # sortiert ausgeben
foreach $i (sort { $a <=> $b } keys %{$subjects}) {
    print "$i: $subjects->{$i}\n"; 
}

$newsagent->quit();