my $dbhstatus = '';
my $rows_deleted = $dbh->do(
    'DELETE FROM states WHERE host_name = ? and service_description = ?',
    undef,
    ( $data->{'host_name'}, $data->{'service_description'} )
    ) or $dbhstatus = 'delete error; [' . $dbh->errstr . ']';