Select Code to Download

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

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

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