Something

#!/usr/local/bin/perl
print ("do you want to use add or minus \n");
$lawl = <STDIN>;
print ("enter your first number\n");
$number1 = <STDIN>;
chop($number1);
print ("enter your second number\n");
$number2 = <STDIN>;
chop($number2);

if ($lawl == "add")
{
  print ($number1 + $number2);
}
elsif($lawl == "minus")
{
	print ($number1 - $number2);
}