Select Code to Download

#!/usr/bin/perl -w
use strict;
...

__DATA__ 
...is your data consisting of the C program...

<DTC>
  <TroubleCode>1101</TroubleCode> 
...
  <DirectDegradation>No Action</DirectDegradation> 
  <Order>PRIMARY</Order> 
   </DTC>

/*XML doc start
<DTC>
...
  <Erasability>erasable</Erasability> 
</DTC>
XML doc end */

/*Perl doc start
=some heading in Perl POD
...
..... lines
=cut
Perl doc end */