my $dbh=DBI->connect($dsn,$opts{user}{value},$opts{password}{value}) || die($!);