мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Это старая версия документа! 

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