my $pid=open3(\*IN,\*OUT,0,'/bin/sh');
# print to and read from IN and OUT
#

##</code><code>##

open(CHILD, "| ./myscript 2>&1") or die "Can't open: $!";
print CHILD "mycommand\n";