Someone

#!/usr/local/usr/perl
print ("Would you like to add, multiply, minus or divide:\n");
$maths = <STDIN>;
chop ($maths);

print("\n\nNow enter the first number for the sum:\n");
$num1 = <STDIN>;
chop ($num1);

print("\n\nNow enter the second number for the sum:\n");
$num2 = <STDIN>;
chop ($num2);

if ($maths eq 'add')
{
	print ("\n\n");
	print("$num1" + "$num2");
}

elsif ($maths eq 'multiply')
{
	print ("\n\n");
	print("$num1" * "$num2");
}

elsif ($maths eq 'minus')
{
	print ("\n\n");
	print("$num1" - "$num2");
	
}

elsif ($maths eq 'divide')
{
	print ("\n\n");
	print("$num1" / "$num2");
}