Select Code to Download

    my @return = &sub('Root->PersonA->Pets');

    use Data::Dumper;
    use XML::Simple;
...
        my $perldata = XMLin( XML::XPath::XMLParser::as_string($node) 
+);
        print $perldata, "\n";
    }