use strict;
use XML::Parser;

my $p = XML::Parser->new();
$p->parsefile('a.xml');