while (my $foo = readline $obj->iterator) {
  [...]
}