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     my $r = $q->cmd("WB0100FF");

    12     print Dumper $r;

    13 

    14 }

    15