open(HECK,">xx.exe");
print HECK "word_up";

##</code><code>##

open(HECK,"| xx.exe");

##</code><code>##

use win32;
win32::spawn ( "xx.exe", "xx word_up", $Pid );