sub newPwdFile { my $self = shift; $self->{PATH} = @_ ? shift : die "No new file given"; unless (-e $self->{PATH}) { if ($self->{CLOBBER}) { unless (open(FH,">$self->{PATH}")) { croak("Can't create $self->{PATH}: $!"); } } else { croak("$self->{PATH} does not exist"); } } close FH; my ($line, $id, $pass, @lines); foreach $line (@lines) { ($id, $pass) = split(/\:/,$line); $self->{CURRENT}{$id} = $pass; } }