Select Code to Download

#!/usr/local/bin/perl5.6.0 -w
use strict;
...
};

print $xs->XMLout(\%data, noattr => 1)

:!./t1.pl
<opt>
...
line 3 text
</text>
</opt>