while ( my $next = <$obj> ) {
    ...
}

##</code><code>##

while ( my $next = <generator($limit)> ) {
    ...
}