open (PIPE,"| $path/$command >&RESULT");
print PIPE @data;
close(PIPE);
@result = <RESULT>;