diff -r a900786f2174 -r 1caa457b59d0 qq --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/qq Tue Dec 09 13:35:16 2008 +0100 @@ -0,0 +1,14 @@ +#! /usr/bin/perl + +use strict; +use warnings; +use Quancom; +use Data::Dumper; + + +MAIN: { + my $q = new Quancom $ARGV[0]; + my $r = $q->cmd("WB010000"); + die Dumper $r; +} +