#!/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;