Select Code to Download

use strict;
use warnings;
...
__END__
0 1 1 1 0 1 0 0 0
0 1 1 1 0 1 0 0 0

package QKey;
use strict;
...
}

1;

package QStuff;
use strict;
...
}

1;

use strict;
use warnings;
...
print "@{[$a1->args]}\n";
print "@{[$b0->args]}\n";
print "@{[$b1->args]}\n";