#!/usr/bin/perl $x = $ENV{QUERY_STRING}; print < Отобразим ввод

Что было…


Вы ввели: $x

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


MyEND __END__