sub new {
    my $class = shift;
    my (%args) = @_;

    my $self = bless {}, $class;
    $self->{Password} = $args{Password} if defined $args{Password};
    #
    #my new options
    #
    $self->{sheet_filter} = $args{sheet_filter} if defined $args{sheet_filter};
    $self->{just_find_sheet_names} = $args{just_find_sheet_names} if defined $args{just_find_sheet_names};

    return $self;
}