#!/usr/bin/perl -w
######################################################################
# newsheaders.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

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

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

                   # subject hash reference:
                   # keys:   article numbers of the newsgroup
                   # values: subjects as text
$subjects = $newsagent->xhdr('Subject', [$first, $last]);

                   # output all subjects sorted
                   # by article numbers
foreach $i (sort { $a <=> $b } keys %{$subjects}) {
    print "$i: $subjects->{$i}\n"; 
}

$newsagent->quit();