my $rc=0;
my ($u,$p);
my $userid=$query->param('userid');
my $plain_pass=$query->param('password');
    unless(open(PFD,$db)) 
my @users;
    while (<PFD>)
    {
        chomp;
        ($u,$p,$path)=split('\|',$_);
        push @users, $u;
    }

    close(PFD);
    unless(open(PFD,$db))
    {
        &printError("Could not open user database");
        return;
    }
my @dir;
    while (<PFD>)
    {
        chomp;
        ($u,$p,$path)=split('\|',$_);
        push @dir, $path;
    }
    close(PFD);

    print $query->popup_menu(-name=>'directory',
                             -values=>\@dir,
                             -labels=>\@dir=>\@users);