$DSN= 'dbi:DriverName:database=$db;host=$host;port=$port;'
[download]

Have you verified that $DSN contains what you think it should contain?

print "Connecting to [$DSN]\n";
[download]

This might help you to find out whether the value of $DSN is what you think it is.