example
changeset 3 200d69222aed
parent 2 a19ea3b8c48d
equal deleted inserted replaced
2:a19ea3b8c48d 3:200d69222aed
       
     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