$operator = <STDIN>;
chomp $operator;
if ($operator eq '+')
{
   $result = $a + $b;
}
elsif ($operator eq '-')
{
   $result = $a - $b;
}
elsif ($operator eq '*')
{
   $result = $a * $b;
}
else
{
   die "unknown operator \"$operator\"\n";
}