--- a/example	Tue Dec 09 15:58:11 2008 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,19 +0,0 @@
-#! /usr/bin/perl
-
-use strict;
-use warnings;
-use Quancom;
-use Data::Dumper;
-
-
-MAIN: {
-    my $q = new Quancom $ARGV[0];
-
-    my $r;
-    $r = $q->cmd("WB0101FF");
-    print $r->error_message, "\n" if $r->error;
-
-    print $r->ok;
-    print $q->last_result->ok;
-}
-