#! /usr/bin/perl -w


$add = "Add";
$subtract = "Subtract";
$multiply = "Multiply";
$divide = "Divide";

print "Type in a number: ";
$x = <>;
chop($x);

print "Type in another number: ";
$y = <>;
chop($y);

print "What would you like done?\n\nYour choice is:\n1) Add\n2) Subtract\n3) Multiply\n4) Divide\n";
$ask = <>;

$z = $x + $y;
if ($ask eq "Add") {print "$x + $y = $z";}