use XML::Twig;

my $gPFile = "input_test.xml";

pretty_print();

exit(0);

######################
sub pretty_print {
######################
  print "Converting ".$gPFile." to pretty print file ".$gPFile.".pp\n";

  open (TMP,">".$gPFile.".pp");

  my $ppml_twig = new XML::Twig(keep_encoding => 0);
  $ppml_twig->parsefile($gPFile);
  $ppml_twig->set_pretty_print('indented');
  $ppml_twig->print( \*TMP);;
  close(TMP);
}