Help for this page

Select Code to Download

Select or download this

    my @UACS;
#    open(POLICY, "getpol -t UACS |"); commented - replaced by __DATA_
+_ for this example
    my $pol;
...
UAC|70|CIRCBUW|Description7|
UAC|80|CIRCCAS|Description8|
UAC|90|CIRCCOM|Description9|