print "a=\n";
$a = <>;
print "operation:\n";
$oper = <>;
print "b=\n";
$b = <>;
$c = $a.$oper.$b;
print eval "$c";