#!/usr/local/bin/perl
use warnings;
use 5.012;
use utf8;
use Encode qw(decode encode);
use CGI qw(:standard);

my $in = decode 'utf-8', param( 'in' ) || 'Hello World';

print header( -charset => 'UTF-8' ),

start_html(),

p( encode 'utf-8', $in ),
p( encode 'utf-8', 'eins' ),
p( encode 'utf-8', 'zwei' ),
p( encode 'utf-8', 'drei' ),
p( encode 'utf-8', 'vier' ),
p( encode 'utf-8', 'fünf' ),
p( encode 'utf-8', 'sechs' ),

end_html;