#!/user/bin/perl -w
use strict;
use warnings;
print "Welcome to the math program\n";
while (1) {
	print "Enter a number\n";
	my $first_number = <STDIN>;
	chomp ($first_number);
	if ($first_number eq 'q') {
		die "Goodbye!\n";
	}
	else {
		print "Enter a second number"; 
		my $second_number = <STDIN>;
		chomp ($second_number);
		my $add;
		my $subtract;
		my $times;
		my $divide;
		if ($second_number !=0) {
			$add = $first_number + $second_number;
			$subtract = $first_number - $second_number;
			$times = $first_number * $second_number;
			$divide = $first_number / $second_number;
			print "$first_number + $second_number =  $add\n";
			print "$first_number - $second_number = $subtract\n";
			print "$first_number x $second_number = $times\n";
			print "$first_number / $second_number = $divide\n";
		}
		else {
			$add = $first_number + $second_number;
			$subtract = $first_number - $second_number;
			$times = $first_number * $second_number;
			print "$first_number + $second_number = $add\n";
			print "$first_number - $second_number = $subtract\n";
			print "$first_number * $second_number = $times\n";
		}
	}
}