perl.pl 150 B

123456789
  1. #!/usr/bin/perl
  2. use XML::Simple;
  3. use Data::Dumper;
  4. $parser = new XML::Simple;
  5. $xml = $parser->XMLin("$ARGV[0]");
  6. $data = Dumper($xml);
  7. print $data;