Select Code to Download

my $object = My::Class->new();
while (my $value = $object->next_val() ) {
     # do cool stuff
     }

my $object = My::Class->new();
while (my $value = eval { $object->next_val() } ) {
...
         }
     # do cool stuff
     }