#!/usr/bin/perl5 -w

dbmopen(%db, 'member.dir', 0644) or die "Can't open member: $!\n";
foreach $i (keys %db) {
    print "$i ==> $db{$i}\n";
}