my $foo = Foo::Live->new;
while (my $subfoo = $foo->next) { print "$subfoo\n" };