+sub processpcfgz ($$) {
+ my ($inpcfgz,$outpcfgz) = @_;
+ my $inh = new IO::File $inpcfgz, 'r', or die "$inpcfgz $!";
+ my $outh = new IO::File $outpcfgz, 'w' or die "$outpcfgz $!";
+ my $inpipe = new IO:Handle or die $!;
+ my $outpipe = new IO:Handle or die $!;
+ my $inchild = open $inpipe, "-|"; defined $inchild or die $!;
+ if (!$inchild) {
+
+ opne
+