my $p=new XML::Parser(Style=>'Stream') 
    	or die ("Couldn't make new Parser\n$GOODBYE\n");
	$p->parsefile($logfile, ErrorContext => 0) ;
		#or die ("Couldn't invoke parsefile in XML::Parser...\n$GOODBYE\n");