perl:ex7

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