Select Code to Download

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

use CGI -utf8; 
my $q = CGI->new; 
print $q->header(qw/ -charset UTF-8 / ),
  $q->start_html,
  $q->param('unicodes');