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