use XML::Dumper;
# deserialize
my $coffin = "resurrectme.xml.gz"
my $xdumper = new XML::Dumper;
my $lazarus = $xdumper->xml2pl($xml_gz);

# ... $lazarus modifications sit somewhere here

# serialize
$xdumper->pl2xml($lazarus, $coffin);