Select Code to Download

sub CLOSE {
    undef $_[0];
}

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

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

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