1 files changed, 8 insertions, 0 deletions
diff --git a/crawl-ref/source/util/testdb.pl b/crawl-ref/source/util/testdb.pl
new file mode 100755
index 0000000000..f13385e851
--- /dev/null
+++ b/crawl-ref/source/util/testdb.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use DB_File;
+
+tie %descriptions, 'DB_File', "descriptions.db";
+while (($k, $v) = each %descriptions)
+   { print "$k -> $v\n" }
+
+untie %descriptions ;