[happy]

Я написал на Perl вот такой скрипт для регистрации на сайте:

#!/usr/bin/perl
print "Content-type:text/html\n\n";
читаем переменные посланные методом GET
если заполнены все поля в форме, то:
use DBI;
$dbh=DBI->connect("DBI:mysql:mybase:localhost","mylogin";"m ypassword");
$cur=$dbh->prepare(insert into t_user (a1,a2,a3) values ($form{'a1'},$form{'a2'},$form{'a3'});
$cur->execute();
$cur->finish();
$dbh->disconnect;
print "<div>Регистрация прошла успешно!
\n";
print "Нажмите ЗДЕСЬ для продолжения\n";
}
else{
print "<div>Вы ввели разные пароли.
\n";
print "<div>Пожалуйста вернитесь на предыдущую страницу и введите один и тот же пароль в поля &quot;Пароль&quot; и &quot;Повторите пароль&quot;.\n";
}

но он не работает. Постоянно выдает - ошибка сервера 500.
Что я неправильно написал?

[kost]

читаем переменные посланные методом GET
если заполнены все поля в форме, то:

Может стоит это закомментировать?

[happy]

но зачем?
мне ведь нужна именно такая структура скрипта!
А в строках где открывается база, в строках с запросами
нет ли синтаксических ошибок???

[kost]

Если здесь приведен полный листинг скрипта, то строки, которые я отметил, вызывают ошибку.

Почитай логи сервера, посмотри, где ошибка.

[webdeveloper]

happy,
А что в логе написано?