--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/example	Tue Dec 09 15:58:11 2008 +0100
@@ -0,0 +1,19 @@
+#! /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;
+}
+