use CGI::Simple;
my $q = CGI::Simple->new();
print "Content-type: text/plain\n\n";
print $q->param('text');

##</code><code>##

use Encode;
print Encode::decode_utf8($q->param('text'))