{ my $db_h = DBI->connect( $db_serverstr, $db_user, $db_pass, {HandleError => sub {die "WHYYYY\n".shift(@_)} } ) or die "WHYYYY\n" . $DBI::errstr; my $sth = $db_h->selectall_arrayref(' grab me stuff from that table '); }