diff --git a/test/perl/TestClient.pl b/test/perl/TestClient.pl
index 96e3bec..6d49f1d 100755
--- a/test/perl/TestClient.pl
+++ b/test/perl/TestClient.pl
@@ -218,9 +218,12 @@
 exit(ERR_BASETYPES) if ($dub ne -852.234234234);
 
 #
-# BINARY TEST   ---  TODO
+# BINARY TEST
 #
-
+print("testBinary(pack('C*', 0..255))");
+my $bin = $testClient->testBinary(pack('C*', 0..255));
+printf(" = %s\n", join ' ', map { sprintf '%02x', $_ } unpack('C*', $bin));
+exit(ERR_BASETYPES) if ($bin ne pack('C*', 0..255));
 
 #
 # STRUCT TEST