open3 (\*PIPE, ">&PIPEOUT", \*PIPEERR, qq[$Command]) or die "cannot pipe to $Command ";
print PIPE "Hello, World\n";
close PIPE;
$pid2 = waitpid(-1,0);
my $ExitCode = $? >> 8;
print "ExitCode $ExitCode\n" ;
@SpoolFile = <PIPEOUT>;
print "SpoolFile @SpoolFile\n";
@CMDERR = <PIPEERR>;