eto taka naprimer : html ->
<form action="/cgi-bin/123.cgi" method="POST"
enctype="x-www-form-urlencoded">

<input type=\"text\" size=\"20\" maxlength=\"2\" name=\"month\" value = $month></font>
<input type=\"hidden\" name=\"check\" value=\"check\">

i t.n.

i posle v 123.cgi

#!/usr/bin/perl

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}


$month = "$FORM{'month'}";
$check = "$FORM{'check'}";

i t.n.