sub CLEAR {
        my $self = shift;
        my ($passwdFile) = $self->{PATH};

        unless ($self->{CLOBBER}) {
            carp ("No write access for $self->{PATH}");
            return;
        } 

        if (!open(FH,">$passwdFile")) {
            carp("Cannot open $passwdFile: $!");
            return;
        }
        close FH;
        $self->{CURRENT} = {};
    }