sub get_lines {
    my $self = shift;
    $self->{file} = shift;
    ### get the filehandle if we don't already have one
    $self->{file_handle} ||= $self->get_filehandle ($self->{file});
    return readline ($self->{file_handle}) || undef;
    }