#!/usr/bin/perl
@header = (
	\"	[+]----------------------------[+]\n\",
	\"	[+]                            [+]\n\",
	\"	[+]        Semtex-Primed       [+]\n\",
	\"	[+]    Maths Machine (Perl)    [+]\n\",
	\"	[+]            V0.1a           [+]\n\",
	\"	[+]                            [+]\n\",
	\"	[+]----------------------------[+]\n\"
);
@menu = (
        \"	[+]                            [+]\n\",
        \"	[+]   1. Basic Maths           [+]\n\",
        \"	[+]   2. Pythagoras            [+]\n\",
        \"	[+]   3. Area                  [+]\n\",
        \"	[+]                            [+]\n\",
	\"	[+]----------------------------[+]\n\"
);
$menuchoice = \"true\";
while ($menuchoice eq \"true\") {
system \"clear\";
system \"cls\";
print @header;
print @menu;
print \">>Choose an option \";
	$choice = <STDIN>;
	chomp ($choice);
	if ($choice eq \"1\") {
		system \"clear\";
		system \"cls\";
		print @header;
		print \"              *** Welcome to Basic Maths ***\n\";
		print \">>Enter your first number \";
		$num1 = <STDIN>;
		chomp ($num1);
		print \">>Enter your operator \";
		$op = <STDIN>;
		chomp ($op);
		print \">>Enter your second number \";
		$num2 = <STDIN>;
		chomp ($num2);
		if ($op eq \"+\") {
			$answer = $num1 + $num2;
			print \"The answer to $num1 added to $num2 equals $answer\n\";
		}
		elsif ($op eq \"-\") {
			$answer = $num1 - $num2;
			print \"The answer to $num1 subtract $num2 equals $answer\n\";
		}
		elsif ($op eq \"/\") {
			$answer = $num1 / $num2;
			print \"The answer to $num1 divided by $num2 equals $answer\n\";
		}
		elsif ($op eq \"*\") {
			$answer = $num1 * $num2;
			print \"The answer to $num1 multiplied by $num2 is $answer\n\";
		} else {
			print \"Error - try again\n\";
		};
	};
};