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

##</code><code>##

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