while (eval { my $value = $object->next_val() }) {
    # do cool stuff
}
print "Error: $@\n" if($@);