my $dbh = DBI->connect(@$data_source) or ...