for (;;) {
  my $value = eval { $object->next_val() };
  if ($@) {
    print "Error: $@\n";
    next;
  }
  last unless $value;
  # do something useful...
}