package FileClerk;

open (FH,$file);

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