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

chomp($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: ";

chomp($number1 = <STDIN>);    

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

chomp($number2 = <STDIN>);

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

chomp($number3 = <STDIN>);

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

chomp($number4 = <STDIN>);

$answer2 = $number3 / $number4;

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