Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<root>
...
    ]]>
  </child>
</root>

#!/usr/bin/perl
use warnings;
...
print $cdata;

exit 0;