dumpxml

   1 #!/usr/bin/perl -w
   2 use XML::Simple;
   3 use Data::Dumper;
   4 my %arg = (KeepRoot=>1);
   5 my $xml = XMLin($ARGV[0] ? $ARGV[0] : "/dev/stdin",%arg);
   6 print Dumper($xml);
   7
   8
   9