use XML::Simple;
my $p= XML::Simple->new();
my $doc= $p->XMLin(shift);