Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print( Dumper( $tree ) );

print( $xs->XMLout( $tree ) );
  2. or download this
    $ perl a.pl 1
$VAR1 = {
...
  <ACCOUNT></ACCOUNT>
  <RTN></RTN>
</BILLING>
  3. or download this
    $ perl a.pl 0
$VAR1 = {
...
  <ACCOUNT></ACCOUNT>
  <RTN></RTN>
</BILLING>