#!/usr/bin/perl -W

$enc = 'windows-1251';
$method = 'GET';
if ($ENV{REQUEST_METHOD} eq 'POST') {
	read(STDIN, $buffer, $ENV{CONTENT_LENGTH});
        @pairs = split '&', $buffer;
	$method = 'POST';
	}
elsif ($ENV{'REQUEST_METHOD'} eq 'GET') {
	@pairs = split '&', $ENV{'QUERY_STRING'};
	}
else {	print "Content-Type: text/html;charset=windows-1251\n\n Ìåòîä $ENV{'REQUEST_METHOD'} íå ïîéä¸ò.";
	exit;
	}

if(@pairs){
foreach $pair (@pairs){
	local($name, $value) = split(/=/, $pair);
	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ tr/+/ /;
	$val_un{$name}=$value;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$val{$name}=$value;
	}
	$enc=$val{enc} if($val{enc});
	}
print qq~Content-Type: text/html;charset=$enc\n\n
<META http-equiv=Content-Type content="text/html; charset=$enc">
<pre><hr><form name=m action="$ENV{'SCRIPT_NAME'}" method=$method>
TEXT to send <input type=text name=txt><input type=hidden name=enc value="$enc"><input type=submit value=send><input type=hidden name=mtd value="$method">
</form><hr><form name=st>encoding  $enc
change to <input type=text name=enc value="$enc"><input type=button value=change onclick="location.href='$ENV{'SCRIPT_NAME'}?enc='+document.st.enc.value">
method    <select name=mtd onChange="document.m.method=this.options[this.selectedIndex].text"><option~;
print ' selected' if ('GET' eq $method);
print '>GET<option';
print ' selected' if ('POST' eq $method);
print qq~>POST</select></form><hr>~;

if(%val){print "decoded: $val{txt}<br>\n";
	    print "encoded: $val_un{txt}\n";
	}