use XML::Simple;
    my $data = join '', <DUMP>;
    my $ref = XMLin($data);