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("WB010000");

    12     die Dumper $r;

    13 }

    14