my $cvents = "c_vents.xml";
if (-f $cvents)
{
     open(COXML, $cvents ) || die("Cannot Open $cvents");
     printf while <COXML>  ;
}