Help for this page
open(HECK,">xx.exe"); print HECK "word_up";
open(HECK,"| xx.exe");
use win32; win32::spawn ( "xx.exe", "xx word_up", $Pid );