sub get_filehandle {
    my $self = shift;
    $self->{file} = shift;
    open my $fh, "<", $self->{file}
        or die "can't open $self->{file}";
    return $fh;
    }