you have to catch STDOUT. something like this:

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");
[download]

at this point, you can open the processlog file and read $num from there.

there may be smarter ways to do it without writing to a file, but I haven't time to look up something for you :-)

cheers,
Aldo

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