#!/usr/bin/perl
use CGI qw(:standard); # загружаем модуль со стандартными опциями
$s = param("testfield");
# $s =  "xxx"; # отладка
 
print header(-charset=>"utf-8");  # Указываем кодировку
 
# print header(-charset=>"windows-1251");
# print header(); # заголовок по умолчанию
 
print start_html("Your input"), p("You input were: $s"),  end_html(); 
# формируем полностью тело страницы, используя полезные функции