my $cmdin=gensym;
my $cmdout=gensym;
my $cmderr=gensym;
open3(\*IN, \*OUT, \*ERR, $cmd);