Help for this page
sub ExecCmd { ... ($error,$answer)=('',''); print WRITE "0\n";
my $pid = open( FH, "| $cmd") or warn "$!\n"; print FH "0\n"; #maybe need syswrite here