1 #! /usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 use Quancom;

     6 use Data::Dumper;

     7 

     8 

     9 MAIN: {

    10     my $q = new Quancom $ARGV[0];

    11 

    12     my $r;

    13     $r = $q->cmd("WB0101FF");

    14     print $r->error_message, "\n" if $r->error;

    15 

    16     print $r->ok;

    17     print $q->last_result->ok;

    18 }

    19