$nntp = Net
::NNTP
->new('news', Debug
=> $opt_debug ?
1 : 0);
if($subs = $nntp->newsgroups)
print join("\n",(keys %$subs)[0 .. 10]),"\n";
$new = $nntp->newnews(time - 3600, lc $group);
if(ref($new) && scalar(@
$new))
if $news = $nntp->article($new->[-1]);