<Input type=hidden...

[m@d]

Как, отправив в перл программу вместе с заполненной формой (н-р Логин и Пароль) невидимое значение (н-р <INPUT type=hidden value=1 name=level>), присвоить его переменной?

Точно также как и все остальные, считать его из переменной окружения %ENV

%query = &comming();

sub comming {
	my $dl = $ENV{CONTENT_LENGTH};
	my $query = $ENV{QUERY_STRING};
	if ($dl >0) {
	  sysread(STDIN, $que, $dl);
	  if ($query) {
	    $query = $query.'&'.$que;
	  }
	  else {
	    $query = $que;
	  }
	}
	my @comm = split('&', $query);
	my %query = ();
	foreach (@comm) {
	  /([^=]+)=(.*)/ && do {
	    local ($field, $value) = ($1, $2);
	    $query{$field} = &decode($value);
	  }
	}
	return %query;
}
sub decode {

	local ($value) = @_;
	$value =~ s/\+/ /g;
	$value =~ s/%([0-9A-H]{2})/pack('C',hex($1))/eg;
	return $value;
}

искомые значения получаем как в простом ассоциативном массиве: $query{$field} = $value; - где $field - ключ(имя поля в форме), а $value - искомое значение.

[MpaK999]

можно еще проще, работает как не GET так и на POST

use CGI qw(param);

$nick=param("nick");
$psw=param("psw");

2MraK999: Если ты заметил, то верхнее тоже работает как на GET, так и на POST.