my (%MEMBERS,
   $member);

dbmopen(%MEMBERS, "/httpd/userDBASE/contact", undef)
        or die "Couldn't open DBASE: $!\n";

for $member(sort keys %MEMBERS) {
        print "$member ---> $MEMBERS{$member}\n";
}

#dmbclose(%MEMBERS);