#!/usr/bin/perl -w 
#use strict; 
use XML::Parser; 
use XML::Parser::EasyTree; 
use Data::Dumper;
my $p=new XML::Parser(Style=>'EasyTree'); 
my $tree=$p->parsefile("test.xml"); 
#my $element;
print_easy_tree($tree); 

sub print_easy_tree 
{ 
    my $node = shift; 

    { 
        if ($element->{type} eq 'e') 
        { 
            print "<$element->{name}>"; 
            print_easy_tree($element->{content}); 
            print "</$element->{name}>"; 
        } 
        elsif ($element->{type} eq 't') 
        { 
            print $element->{content}; 
        } 
        else 
        { 
            print "[IGNORED $element->{type}]"; 
        } 
    } 
}