You might want to consider using or subclassing IO::File (alt.), which already does something similar ($fh->getline).

    --k.