#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use Encode;

print header('text/plain');

my $var = param('test');
$var = decode_utf8($var);
print $var;