qq
changeset 2 a19ea3b8c48d
parent 1 1caa457b59d0
equal deleted inserted replaced
1:1caa457b59d0 2:a19ea3b8c48d
     6 use Data::Dumper;
     6 use Data::Dumper;
     7 
     7 
     8 
     8 
     9 MAIN: {
     9 MAIN: {
    10     my $q = new Quancom $ARGV[0];
    10     my $q = new Quancom $ARGV[0];
    11     my $r = $q->cmd("WB010000");
    11     my $r = $q->cmd("WB0100FF");
    12     die Dumper $r;
    12     print Dumper $r;
       
    13 
    13 }
    14 }
    14 
    15