Hi, your DBI connect statement looks wrong. Try this:

my $DSN = "dbi:mysql:$MyDB";
$ProgOption{dbh}=DBI->connect($DSN, $User, $PW, {PrintError => 0, Rais
+eError => 1 });
[download]

Hope this helps!