Select Code to Download

#!/usr/bin/env perl

...
my $xml = XML::Simple->new->XMLout($hashref);

print $xml;

#!/usr/bin/env perl

...
};

store $hashref => $file;

$ pm_1078041_parent.pl
<opt key1="qwerty" key2="asdfgh">
...
  <key4>6</key4>
  <key4>7</key4>
</opt>