diff -r 7ccc679ac5db -r 2d41fac09084 examples/client
--- a/examples/client	Mon Jan 05 21:44:56 2009 +0100
+++ b/examples/client	Tue Jan 06 02:01:26 2009 +0100
@@ -1,5 +1,8 @@
 #! /usr/bin/perl
 
+# should probably called on blib environment:
+# perl -Mblib examples/client ...
+
 use strict;
 use warnings;
 use Quancom;
@@ -12,26 +15,34 @@
 
     # switch on/off all lights on the first relais
     $r = $q->cmd("WB0100FF");
-    print $r->ok ? $r->data : $r->error, "\n";
+    print $r->ok ? $r->data : $r->error_message, "\n";
 
     sleep 1;
     $r = $q->cmd("WB010000");
-    print $r->ok ? $r->data : $r->error, "\n";
+    print $r->ok ? $r->data : $r->error_message, "\n";
 
     sleep 1;
     $r = $q->cmd("WB010001");	# 1 bit setzen
-    print $r->ok ? $r->data : $r->error, "\n";
+    print $r->ok ? $r->data : $r->error_message, "\n";
 
     sleep 1;
     $r = $q->cmd("WB010055");	# 0101|0101
-    print $r->ok ? $r->data : $r->error, "\n";
+    print $r->ok ? $r->data : $r->error_message, "\n";
 
     sleep 1;
     $r = $q->cmd("WB0100AA");	# 1010|1010
-    print $r->ok ? $r->data : $r->error, "\n";
+    print $r->ok ? $r->data : $r->error_message, "\n";
+
+    sleep 1;
+    $r = $q->cmd("WW0100AAAA");	# 1010|1010 1010|1010
+    print $r->ok ? $r->data : $r->error_message, "\n";
 
     sleep 1;
-    $r = $q->cmd("SL010000000055");	# + 0101|0101
-    print $r->ok ? $r->data : $r->error, "\n";
+    $r = $q->cmd("SL010000550055");	# + 1010|1010 0000|0000 0101|0101
+    print $r->ok ? $r->data : $r->error_message, "\n";
+
+    sleep 1;
+    $r = $q->cmd("CL010000000055");	# - 0101|0101
+    print $r->ok ? $r->data : $r->error_message, "\n";
 }