open(OLDOUT, ">&STDOUT");
open(OUTPUT, ">processlog");
open(STDOUT, ">&OUTPUT");
$| = 1;

Win32::Process::Create($ProcessObj, @args);
$ProcessObj->Wait( $appropriate_amount_of_time );

close(OUTPUT);
close(STDOUT);
open(STDOUT, ">&OLDOUT");


##</code><code>##

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;