#!/usr/bin/perl
use CGI qw/unescape/;
use strict;

my $cgi = new CGI;

print $cgi->header;
my $xml = $cgi->param('xml');
print unescape($xml);