Select Code to Download

my $dbh = database('current');

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