#!/usr/bin/perl -T

use warnings;
use strict;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use utf8::all;
use Encode qw/ decode /;

my $a=undef;
my $b=undef;

$a=CGI->new;
$b=$a->param( 'tekst' );
$b=decode( 'UTF-8', $b );

exit 0;