use open qw(:std :utf8);
use Encode;
use utf8;

##</code><code>##

print header(-type=>'text/html',-charset=>'utf-8');
print start_html(-title => "FooBar");

##</code><code>##

my $text=decode("utf8", $query->param("textbox"));