Do you get any errors? Perhaps if you add:

or die $DBI::errstr;

to the end or your connect statements, that might give you some idea what is going on.

Good luck,

Anne