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);
}

##</code><code>##

<?xml version="1.0" encoding="windows-1252"?>
<JOB Label="input_test" >
	<SUBJOB>
	</SUBJOB>
</JOB>


##</code><code>##

pp -l libexpat.dll -a "C:/Strawberry/perl/site/lib/XML/Parser/Encodings;lib/XML/Parser/Encodings" -o pp_only.exe pp_only.pl