Select Code to Download

use strict;
...
    print FH $_;
    close FH;
}

my $tr = Reporting->new;

...
$tr->result("Pass");
$tr->comments("Executed Successfully");
print $tr->as_xml;

<?xml version='1.0' standalone='yes'?>
<TestResult xmlns="some info" xmlns:xsi="some info" xsi:schemaLocation
+="some info">
...
    <Image key="Image1">Some info</Image>
  </Images>
</TestResult>

<Parameters>
<ParameterGroup ID="Group1">
...
  <Parameter key="Key3">Some Value</Parameter> 
  </ParameterGroup>
  </Parameters>