package FileClerk;

open (FH,$file);

sub next_line {
  return (readline(*FH));
}

##</code><code>##

use FileClerk;
for (FileClerk::next_line()) {
    print "$_\n";
}