# Set the current group
($count,$first,$last,$group) = 
	$nntp->group("comp.lang.perl.misc");
	
print join("\t", $count,$first, $last, $group),"\n";
print "-" x 60,"\n";
	
# Get the header of the last article
$arr = $nntp->head($last);
print @$arr if $arr;
	
print "-" x 60,"\n";
	
# Now get the previous article
$nntp->last;
$arr = $nntp->body;
print @$arr if $arr;
	
print "-" x 60,"\n";
	
# And finally the oldest article still avaliable
$arr = $nntp->article($first);
print @$arr if $arr;