# Create tied hash sub TIEHASH { my $self = shift; my $path = shift; my $mode = shift || 'r'; if (@_) { croak ("usage: tie(\%hash, \$file, [mode])"); } my $clobber = ($mode eq 'rw' ? 1 : 0); my $node = { PATH => $path, CLOBBER => $clobber, CURRENT => {} }; open(FH, "$path"); my @lines = ; close FH; my ($line, $id, $pass); foreach $line (@lines) { ($id, $pass) = split(/\:/,$line); $node->{CURRENT}{$id} = $pass; } return bless $node => $self; }