--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/client	Sun Jan 04 18:42:46 2009 +0100
@@ -0,0 +1,38 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use Quancom;
+use Data::Dumper;
+# use blib;
+
+MAIN: {
+    my $q = new Quancom $ARGV[0];
+
+    my $r;
+
+    # switch on/off all lights on the first relais
+    $r = $q->cmd("WB0100FF");
+    print $r->ok ? $r->data : $r->error, "\n";
+
+    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";
+
+    sleep 1;
+    $r = $q->cmd("WB010055");	# 0101|0101
+    print $r->ok ? $r->data : $r->error, "\n";
+
+    sleep 1;
+    $r = $q->cmd("WB0100AA");	# 1010|1010
+    print $r->ok ? $r->data : $r->error, "\n";
+
+    sleep 1;
+    $r = $q->cmd("SL010000000055");	# + 0101|0101
+    print $r->ok ? $r->data : $r->error, "\n";
+}
+