Hi,
ich habe keine ahnung von PERL aber folgendes macht mich doch schon stutzig:
my $DB_NAME = "";
my $DB_DSN = "DBI:mysql:database=$DB_NAME";
Die Variable $DB_NAME; ist doch leer, wie soll denn dann eine Verbindung aufgebaut werden? Oder hast du an dieser stelle einen Namen angegeben?