.......
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)=('','');
}