Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}

print Dumper($cols);

$VAR1 = [
          [
...
            'rw'
          ]
        ];