Select Code to Download

#!/usr/bin/perl
use CGI qw/unescape/;
...
print $cgi->header;
my $xml = $cgi->param('xml');
print unescape($xml);