#!perl
use DBI;
$name_base_mysql = "test";
$user_base_mysql = "root";
$pass_base_mysql = "password";
$host_base_mysql = "localhost";
$port_base_mysql = "3306";
$dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
$dbh = DBI->connect($dbh, $user_base_mysql, $pass_base_mysql);
$sql = "SELECT name, name FROM tabl WHERE name = \'tri\' ";
$sth = $dbh -> prepare($sql);
$sth -> execute();
while ($tmp = $sth -> fetchrow_arrayref()) {
$var0 = $tmp ->
$var1 = $tmp -> [1];}
$sth -> finish();
$dbh -> disconnect();
print "Content-type: text/html; charset=windows-1251\\n\\n";
print qq "$var0 - $var1";
exit;
База test
таблица tabl
---------------------------------
name | name2
---------------------------------
raz | dva
tri | chetire
pyat | shest
---------------------------------
И опять 500, что не так?