#!/usr/local/bin/perl

print "\n                               ** Calculus 1.0 **\n\n ";

print " What would you like to do?. Please enter the word 'add', 'subtract' , 'divide' or 'multiply' to continue: ";

$selection = <STDIN>;
$value1 = "multiply";
$value2 = "divide";
$value3 = "add";
$value4 = "subtract";

if ($selection eq $value1){
print "\n Please enter a number to be multiplied, then press enter: ";

$number1 = <STDIN>;    

print "\n Now please enter the 2nd number you would like to be multiplied: ";

$number2 = <STDIN>;

$answer = $number * $number2;
    
print ( "\n Your answer is: ", $answer, "\n\n\n" );
} elseif ($selection eq $value2){
print "\n Please enter a number to be divided, then press enter: ";

$number3 = <STDIN>;

print "\n Now please enter the 2nd number you would like to be multiplied: ";

$number4 = <STDIN>;

$answer2 = $number3 / $number4;

print ( "\n Your answer is: ", $answer2, "\n\n\n" ); }
}