use strict ;
use News::NNTPClient ;

my $nc = new News::NNTPClient( 'host', 'port' ) ;
print 'Lade Header...' ;

# das dauert ca. 30 Sek.
my @headers = $nc->xover($nc->group('group')) ;

print "Fertig!\n" ;