2 

     2 

     3 use strict;

     3 use strict;

     4 use warnings;

     4 use warnings;

     5 use Quancom;

     5 use Quancom;

     6 use Data::Dumper;

     6 use Data::Dumper;

     8 

     7 

     9 MAIN: {

     8 MAIN: {

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

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

    11 

    10 

    12     my $r;

    11     my $r;