#!/usr/bin/perl
  
  use strict;
  use warnings;
  use XML::Parser;


$parser = new XML::Parser( Style => 'Tree' );
my $tree = $parser->parsefile( shift @ARGV );

use Data::Dumper;
print Dumper( $tree );