#    open(POLICY, "getpol -t UACS |"); commented - replaced by __DATA_
+_ for this example
    my $pol;
    while (<DATA>) # ($pol = <POLICY>) <== could this be changed to wh
+ile (my $pol = <POLICY>), to remove the previous line ??
    {
      ...
    }
...