open OUT, ">/tmp/out.tmp" or die "Can't open OUT" ;
$pid = open3( $wfh ,\*OUT, $efh, $cmd );
... ...
while (<OUT>) {
   print FH $_ ;
}