Select Code to Download

package FileClerk;

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

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