@fields = qw(numb subj from date mesg refr char line xref);
	
foreach $xover ($client->xover($client->newnews("$group",$current_time - 3600))) 
{	
%fields = ();
@fields{@fields} = split /\t/, $xover;	
print MESSAGES "Article: $fields{numb} of $group\n";
print MESSAGES $client->article($fields{numb});
print MESSAGES "\n";
$art_num++;
}