my $dbh = DBI->connect( ... );