Отобразим ввод


#!/usr/bin/perl

$x = $ENV{QUERY_STRING};

print <

Отобразим ввод


Что было…

Вы ввели: $x
(следует отметить, что ни элементы формы, 
ни символы вне ASCII-подмножества не декодируются)




MyEND

__END__