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

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