--- a/examples/example	Thu Dec 25 11:23:35 2008 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,38 +0,0 @@
-#! /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";
-}
-