#! /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;
}

