Select Code to Download

for (;;) {
  my $value = eval { $object->next_val() };
...
  last unless $value;
  # do something useful...
}