Select Code to Download

    use Tie::Dir;
    tie %hash, Tie::Dir, "./";

    TIEHASH classname, LIST
    DESTROY this
    FETCH this, key
...
    EXISTS this, key
    FIRSTKEY this
    NEXTKEY this, lastkey

    TIEARRAY classname, LIST
    DESTROY this
    FETCH this, key
    STORE this, key, value

    TIEHANDLE classname, LIST
    WRITE this, LIST
    PRINT this, LIST
...
    GETC this
    CLOSE this
    DESTROY this

    # tie %hash, Tie::Dir, ".", DIR_UNLINK;

    sub TIEHASH {
...
        $unlink ||= 0;
        bless [$dir,undef,$unlink], $class;
    }

    sub TIESCALAR {
        my $class = shift;
        my $name = shift;
...

        return bless \$city, $class;
    }

    use Tie::getCity; # If the module name was Tie/getCity.pm

    tie($foo, 'Tie::getCity', $ENV{REMOTE_USER});

    package Example;

    use strict;
...
    sub Version {return $VERSION;}

    use Carp;

    # Create tied hash

    sub TIEHASH {
...

        return bless $node => $self;
    }

    # Store an entry

    sub STORE {
...

        if (!$id && !$passwd) {return 1;}
    }

    $hash{name} = "";
# or
    $hash{name} = undef;

    if ($passwd eq "") {
        $cryptedPass = "";
    } else {
        $cryptedPass = crypt($passwd, $salt);
    }

 
    # Warning, possible race condition ahead
    # I need to update this opening a locking!
...
        print FH "$Id\:$cryptedPass\n" unless $cryptedPass eq "";
        $foo = $hash{FOO};
    }

    sub FETCH {
        my $self = shift;
        my $Id = shift;         
...
            return "$Id doesn't exist";
        }
    }

    sub DELETE {
        my $self = shift;
        my ($Id) = shift;
...
        close FH;
        return 1;
    }

    %hash = "";
    %hash = %newHash;
    %hash = {};
    undef %hash;

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

    sub FIRSTKEY {
        my $self = shift; 
        my $a = keys %{$self->{CURRENT}};
        each %{$self->{CURRENT}};
    }

    sub NEXTKEY {
        my $self = shift;
        return each %{$self->{CURRENT}};

    }

    #!/usr/bin/perl
    use Example;

...
        if ($again !~ /y/i) { untie %hash; exit;}else{&ask;}

    }

    $obj = tie(%hash, 'Tie::Class', 'rw');
    $obj->newPwdFile('/usr/local/apache/.passwds');

    sub newPwdFile {
        my $self = shift;
        $self->{PATH} = @_ ? shift : die "No new file given";
...
        }

    }

    # Usage: tie($VARIABLE,'TrackScalar', FILE, "\$VARIABLE name/descr
+iption");

    # use TrackScalar;
...
    }

    1;