Select Code to Download

$operator = <STDIN>;
chomp $operator;
...
{
   die "unknown operator \"$operator\"\n";
}

$first=<STDIN>;
$second=<STDIN>;
...
{
    print "$result\n";
}