1 #!/usr/bin/env perl
  2 
  3 
  4 use Data::Dumper;
  5 use XML::Simple;
...
  9 my $xs1 = XML::Simple->new();
 10 my $file = $ARGV[0];
 11 my $doc = $xs1->XMLin($file, forcearray => 1);
 12