Naja, die Probleme könnten daraus resultieren, dass du hier und da mal falsch quotest, Semikolon mit den Parametern für DBH übergibst usw.
Auf jeden Fall solltest du dashier benutzen:
use strict;
use warnings;
use diagnostics;

Und dann um es dir ein bischen einfacher zu machen:
use vars;
my $cgi = CGI->new();
my $query = $cgi->Vars(); # Name-Wert-Paare ausm Query in eine Hashreferenz stecken (kann auch als Hash angesprochen werden, siehe perldoc)

Dann wäre da noch die Sachen, dass du die Fehler die beim erzeugen des DBH auftreten könnten nicht abfängst mit my $dbh = DBI->connect( ... ) or print STDERR ("Error in connecting to $query->{DB_name}\n", die => 1); # immer Returncodes und Fehler auswerten!!!

Wenn du dein Datenbankhandle endlich hast kannst du auch genz bequem mit $dbh->err() auf Fehler und auf $dbh->errstr() auf die Fehler im einzelnen zugrefein.
Da fällt mir auf, hast du DBD::MySQL überhaupt geladen?
Dann übergibst du keine Attribute an das DBH, uss allerdings auch nicht sein.
Hoffe das bringt dich weiter.
mfg pktm