#!/usr/bin/perl -w

print "First Number: ";
$a = <>;     # <> is short for <STDIN>

print "Second Number: ";
$b = <>;

print "Operator: ";
$operator = <>;

if ( $operator == "+" ) {
   # Do some addition
} elsif ( $operator == "-" ) {
   # Do some subtraction
} elsif ( $operator == "/" ) {
   # Division
} elsif { $operator == "*" ) {
   # Multiply
} else {
   # Catch everything else
   print "DON'T YOU KNOW MATH?!?!\nMONKIES CAN DO MATH!!!\n";
}