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