.......
open(OUT,">file_out) or warn "$!\n";

# then where you read the output print it to 
# the OUT filehandle

#get the answer from bc
sysread(READ,$answer,4096) if $selread->can_read(0);
if($answer){print  OUT "$query = $answer\n"}

($error,$answer)=('','');
}


##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use IPC::Open3;

#interface to "bc" calculator 
#my $pid = open3(\*WRITE, \*READ, \*ERROR,"bc"); 
my $pid = open3(\*WRITE, \*READ,0,"bc");
            #if \*ERROR is false, STDERR is sent to STDOUT  
while(1){
print "Enter expression for bc, i.e. 2 + 2\n";
chomp(my $query = <STDIN>);

#send query to bc 
print WRITE "$query\n";

select(undef,undef,undef,2);

#get the answer from bc 
chomp(my $answer = <READ>);

print "$query = $answer\n";
}

waitpid($pid, 1);
# It is important to waitpid on your child process,   
# otherwise zombies could be created.