1 die "cant create dbmtest" unless dbmopen(%keys, "dbmtest", 0666);
104 $keys{'key9998'} = 9998;
105 $keys{'key9999'} = 9999;
110 die "cant read dbmtest" unless dbmopen(%rkeys, "dbmtest", undef);
113 print "Reading...\n";
114 while (($key, $val) = each %rkeys)
116 if ($keys{$key} != $val)
118 print 'Incorrect val ', $key, ' = ', $val, ' expecting ', $keys{$key}, "\n";
124 print $i, "Error(s)\n";