#!/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(); # формируем полностью тело страницы, используя полезные функции