#!/usr/bin/env perl

use strict;
use warnings;

use Storable;
use XML::Simple;

my $file = 'pm_1078041_store';

`pm_1078041_child.pl`;

my $hashref = retrieve $file;

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

print $xml;