$DSN= 'dbi:DriverName:database=$db;host=$host;port=$port;'
my $dbh=DBI->connect($DSN);