my $tr = Reporting->new; $tr->parameter(1, 1, "Some Process A Happened"); $tr->parameter(1, 2, "Some Process B Happened"); $tr->parameter(2, 1, "Some Process A Happened"); $tr->parameter(3, 1, "Some Process Happened"); $tr->image(1, "Some info"); $tr->parameter(6, 1, "Some Process Z Happened"); $tr->file(10, "Some File"); $tr->result("Pass"); $tr->comments("Executed Successfully"); print $tr->as_xml;