--- a/examples/example	Tue Dec 16 16:08:43 2008 +0100
+++ b/examples/example	Wed Dec 17 23:31:39 2008 +0100
@@ -4,18 +4,23 @@
 use warnings;
 use Quancom;
 use Data::Dumper;
-
+# use blib;
 
 MAIN: {
     my $q = new Quancom $ARGV[0];
 
     my $r;
-    # $r = $q->cmd("WB0101FF");
-    $r = $q->cmd("WB010001");	    # sollte(!) gehen
-    print $r->error_message, "\n" if $r->error;
+
+    # switch on/off all lights on the first relais
+    $r = $q->cmd("WB0100FF");
+    print $r->ok ? $r->data : $r->error, "\n";
 
-    print $r->ok;
-    print $q->last_result->ok;
+    sleep 1;
+    $r = $q->cmd("WB010000");
+    print $r->ok ? $r->data : $r->error, "\n";
 
+    sleep 1;
+    $r = $q->cmd("WB010001");	# 1 bit setzen
+    print $r->ok ? $r->data : $r->error, "\n";
 }