Select Code to Download

#!/usr/bin/perl -Tw

...
print STDOUT $xml->XMLout(\%data);

exit 0;

<opt>
  <none field_name="node" type="text" />
...
  <none field_name="vote" type="radio" />
  <none field_name="none" type="submit" />
</opt>