#!/usr/bin/perl
#prompts for an string to evalute
#(line 2+2, or 5x7, 5*6 / 3 , etc)
#sends it to the bc calculator, 
#then reads the answer, and prints.
use IPC::Open2;
use strict;
use warnings;

my ($rd, $wr);
open2($rd, $wr, "bc");

print "Enter a string to evaluate\n";
my $prompt= <STDIN>;
print $wr "$prompt";
my $x = <$rd>;
print $x;


print "Enter another string to evaluate\n";
my $prompt= <STDIN>;
print $wr "$prompt";
my $x = <$rd>;
print $x;

close($rd);
close($wr);