#!/usr/bin/perl
$x = $ENV{QUERY_STRING};
print <<MyEND
Content-type: text/html; charset=utf-8
<HTML>
<HEAD>
<TITLE>Отобразим ввод</TITLE>
</HEAD>
<BODY>
<H1>Что было&hellip;</H1>
<hr>
<P>Вы ввели: $x</P>
<P>(следует отметить, что ни элементы формы,
ни символы вне ASCII-подмножества не декодируются)</P>
<hr>
</BODY>
</HTML>
MyEND
__END__