my $dsn = "DBI:$driver:database=$database;host=$hostname;port=$port"; 
my $dbh = DBI->connect($dsn,$user,$passwd) || die DBI::errstr;