for (;$line=<>;) {
  $v = EVAL($line);
  print "answer is $v\n";
}