--- a/qq	Tue Dec 09 13:35:16 2008 +0100
+++ b/qq	Tue Dec 09 14:25:33 2008 +0100
@@ -8,7 +8,8 @@
 
 MAIN: {
     my $q = new Quancom $ARGV[0];
-    my $r = $q->cmd("WB010000");
-    die Dumper $r;
+    my $r = $q->cmd("WB0100FF");
+    print Dumper $r;
+
 }