Чтение параметров извне

[IP FBI]

Помогите пожалуйста, почему как бы я не пытался, получаю 500 ошибку?
т.е. если такая строка:
$buffer=$ENV{'QUERY_STRING'}; или
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
То ни втом не другом случае не получается даже просто через content-type вывести то что ввел - 500 и все тут... Спасибки заранее!

[darkone]

код полностью покажи

[IP FBI]

#!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/<//g;
$value =~ s/>//g;
$FORM{$name} = $value;
}
print "Content-type: text/html\n\n";
print 'Your name is', $FORM{'name'};
print '<a href="mailto:' ;
print $FORM{'mail'} ;
print '">Писать Сюда</a>';

[SPV]

Первая строка:
#!usr/bin/perl
Нужно
#!/usr/bin/perl
А то он ищет перл относительно скрипта...

[Aib]

Возможно также
#!/usr/local/bin/perl
Не все серверы работают с обоими вариантами

[Crazy]

Не существует варианта, который работал бы на всех серверах.

[Aib]

Не существует сервера, который бы на всех работал

[Crazy]

Ну отчего же... Существует сервер, который работает на всех перечисленных вариантах первой строки. Это виндовый апач при правильно настройке. Он умеет игнорировать эту строку:

ScriptInterpreterSource registry

[IP FBI]

Сэнкс, наверное в этом и была проблема... попробую...

[Aib]

Честно говоря, ни разу в сети не видел на каком-нибудь серваке виндовый апач. Не покажешь, а, Crazy?