use IPC::Open2;

#$pid = open2( \*Reader, \*Writer, "notepad.exe" );

open OUTF, ">test.txt";
print OUTF "I'm alive";
close OUTF;

##</code><code>##

use IPC::Open2;

$pid = open2( \*Reader, \*Writer, "notepad.exe" );

open OUTF, ">test.txt";
print OUTF "I'm alive";
close OUTF;