my $dbh=DBI->connect($dsn,$user,$pwd) || die "could not connect to database:$error\n";