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