Help for this page

Select Code to Download

Select or download this

  my @UACS;
  open(POLICY, "getpol -t UACS |");
  while ($pol = <POLICY>)
...
    push(@UACS,$name);
#    print "$name\n";
   }

Select or download this

  for my $row (@UACS)
   {
    format STDOUT = @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<
+<<<<<<<<
...
.
    write;
   }