Select Code to Download

$VAR1 = {
          '0' => {
...
                   'directory' => '/var/adm'
                 }
        };

#!/usr/local/bin/perl -w

...
    print "\tSkipping rule $ruleNum\n";
    push (@skippedRules, $ruleNum);
}