#!/usr/local/bin/perl -w

use strict;
use XML::Twig;

my $xml_twig = XML::Twig->new(
    pretty_print => 'indented',
    NoLWP => 1,
    discard_spaces => 1,
    twig_handlers => { 'level(1)' => \&dump_partial_tree }
);

$xml_twig->parse ( \*DATA ) || die "\nError parsing data $@\n";


sub dump_partial_tree
  { my( $xml_twig, $element)= @_;
    print "\n\nName : " . $element->name . "\n";
    $xml_twig->print;
    print "\n";
    $element->delete;
}

__DATA__
<myconfig_data>
        <level1>
                <tag>hello1</tag>
        </level1>
        <level2>
                <tag>hello2</tag>
        </level2>
        <level3>
                <tag>hello3</tag>
        </level3>
</myconfig_data>