my $pid=open3(\*IN,\*OUT,\*ERR,'/bin/tcsh');
.....
print IN  "$mycommand\n";

my $results = <OUT>;