sub next_line {
  return scalar <FH>;
}

##</code><code>##

  local $/ = "\n";