diff --git a/src/cap5/test-cases.pl b/src/cap5/test-cases.pl
new file mode 100644
index 000000000..118f5d808
--- /dev/null
+++ b/src/cap5/test-cases.pl
@@ -0,0 +1,11 @@
+grep record BL02I-MO-IOC-02.db |\
+grep -v '^#' |\
+perl -e '
+%h = (); 
+while(<>){ 
+   @a = split /,/; 
+   $a[0] =~ s/record\(//; 
+   $h{$a[0]}=$a[1]; 
+} 
+print %h;'
+