foreach (@items) {
  ...  a lot of perl code ...
  unless (some condition) {
    $err = "Splunk is missing from Foobar";
  }
}

ok(! $err,"Fancy code") or diag $err;