diff --git a/util/memleak.pl b/util/memleak.pl
new file mode 100644
index 0000000000..1333485ba3
--- /dev/null
+++ b/util/memleak.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+# Massage the output from ISC_MEM_DEBUG to extract mem_get() calls
+# with no corresponding mem_put().
+
+while (<>) {
+    $gets{$1.$2} = $_ if /mem(pool)?_get.*-> 0x([0-9a-f]+)/;
+    delete $gets{$1.$2} if /mem(pool)?_put\(0x[0-9a-f]+, 0x([0-9a-f]+)/;
+}
+print join('', values %gets);