#!/usr/bin/perl
my @params = split(/[&;]/, $ENV{'QUERY_STRING'});
my $text = '';
my ($key, $val);
foreach (@params) {
($key, $val) = split('=', $_, 2);
if ($key eq 'text') {
$val =~ s/\+/ /g;
$val =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge;
$val =~ s/([&<>])/
if ($1 eq '&') { '&'; }
elsif ($1 eq '<') { '<'; }
elsif ($1 eq '>') { '>'; }
/ge;
$text = $val;
}
}
print <<_EOF_;
Content-Type: text/html
Test
Text:
$text
_EOF_