#! /usr/bin/perl -w


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 = <>;
chop ($ask);

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

$z = $x - $y;
if ($ask eq "Subtract") { print "$x - $y = $z";}

$z = $x * $y;
if ($ask eq "Multiply") {print "$x * $y = $z";}

$z = $x / $y;
if ($ask eq "Divide") { print "$x / $y = $z";}