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");