my $sth=$dbh->prepare($sql) or 
       spit_milk_out_my_nose(SEV2,
              "Error Preparing:\n" . $sql . "\nDBI returned: \n", $dbh->errstr
        );