| hand waving here 
   my $dbh = DBI->connect($connect_string,$user,$password,$options)
                or spit_milk_out_my_nose(SEV1,"Connection error: " . $DBI::errstr,1,-1);