sub CLOSE {
    undef $_[0];
}

##</code><code>##

    print "LOOP DONE\n";
    close $out;
    close $err;
    $p->close();

##</code><code>##

# my $p = ProcOpen::procopen(\$in, \$out, \$err, "c:\\perl\\bin\\perl.exe", "testpipe.pl");

  my $p = ProcOpen::procopen(\$in, \$out, \$err, $^X, "testpipe.pl");