diff --git a/test/perl/TestClient.pl b/test/perl/TestClient.pl
index af80d46..ca1d47e 100644
--- a/test/perl/TestClient.pl
+++ b/test/perl/TestClient.pl
@@ -99,6 +99,11 @@
 print(" = $dub\n");
 
 #
+# BINARY TEST   ---  TODO
+#
+
+
+#
 # STRUCT TEST
 #
 print("testStruct({\"Zero\", 1, -3, -5})");