perl & MySQK

[znik]

#!/usr/bin/perl

 

print "Content-type: text/html\n\n";

 

use Mysql;

 

$dbh = Mysql->Connect("localhost","umorok_anekdot","umorok_zns","password");

 

if($ENV{'REQUEST_METHOD'} eq 'GET')

{$query=$ENV{'QUERY_STRING'};}

elsif($ENV{'REQUEST_METHOD'} eq'POST')

{sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});}

 

@pairs = split(/&/, $query);

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///g;

${$name} = $value;

} ;

 

 

$sts="INSERT INTO rubr(rubr, id_rubr) VALUES (\"".$rubr."\",\"".$tbl."\");";

 

print "rubr=$rubr tbl=$tbl dbh=$dbh 1 sts=$sts ";

 

$sth = $dbh->Query($sts);

 

print "END";

 

Как мне кажется не коннектица с базой, а в чем причина не пойму..... вроде всё верно.

[admin]

В cPanel -> mysql дали пользователю umorok_anekdot привилегии на доступ к базе umorok_zns?

 

Скрипт выдает ошибку 500?