#! /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";}


##</code><code>##

Name "main::multiply" used only once: possible typo at rachael.pl line 12.

Name "main::add" used only once: possible typo at rachael.pl line 10.

Name "main::divide" used only once: possible typo at rachael.pl line 13.

Name "main::subtract" used only once: possible typo at rachael.pl line 11.

Type in a number: 4
Type in another number: 5
What would you like done?

you choice is:
1) Add
2) Subtract
3) Multiply
4) Divide
1
root:rachael {103}