my @UACS;
  open(POLICY, "getpol -t UACS |");
  while ($pol = <POLICY>)
   {
    chomp($pol);
    ($type, $number, $name) = split (/\|/, $pol, -1);
    push(@UACS,$name);
#    print "$name\n";
   }