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

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