dbmopen(dbmfile, @ARGV[0], 0) || die("can't open " . @ARGV[0]);
while (($key, $val) = each %dbmfile) {
	print $key, "\n";
}