#!/usr/bin/perl -w

use strict;
use utf8;
use CGI;
use Encode qw(decode_utf8);

binmode STDOUT, ':encoding(UTF-8)';
binmode STDIN,  ':encoding(UTF-8)';

my $q = CGI->new;
$q->charset('UTF-8');
print $q->header();

print "äöü";
print decode_utf8($q->param('name'));