#!/usr/bin/perl


use warnings;
use strict;
use Data::Dumper;
use XML::Parser;

my $xml =<<"DONE";
<letter><contact type = "from"><name>Tom</name>
   <phone>111-1234</phone></contact>
   <salutation format = "formal">Dear Sir:</salutation>
</letter>
DONE

my $parser = new XML::Parser( Style => 'Tree', ErrorContext => 2 );

my $tree = $parser->parse( $xml );

print( Data::Dumper->Dump( [ $tree ] ) );