#!/usr/bin/perl

use strict;
use locale;
use utf8;
use open ':std' => ':encoding(UTF-8)';
use CGI qw(:all -utf8);
my $q = new CGI;
my %p = $q->Vars;

warn utf8::is_utf8($p{text}); # says: 1
warn $p{text}; # shows uglified chars in log too

print $q->header(-type=>"text/html", -charset=>"UTF-8");
print $q->start_html(-encoding=>"UTF-8");
print $q->pre( $p{text} );

print   $q->p("some pretty UTF-8 formed characters: öäüõžš¢ð€¶"),
        $q->start_form,
                $q->textarea('text', '' , 10, 40),
                $q->br,
                $q->submit('view', 'view'),
        $q->end_form,
        $q->end_html;