# File:	arith.pl
# Title: 	Arithmetic in Perl
#		Input from keyboard 2 numbers
#		Operations are: +, -, *, / , % (modulus) remainder , ** (exponentiation)
#	n1 ?= 3
#	n2 ?= 2
#	n1 - n2 =  1
#	n1 * n2 =  6
#	n1 / n2 =  1.5
#	n1 ** n2 = 9 
#	n1 % n2 = 1 

print "n1?= ";	
$n1 = <STDIN>;
print "n2?= ";	
$n2 = <STDIN>;
print "n1 - n2 = ", $n1 - $n2; 
print "\nn1 * n2 = ", $n1 * $n2; 
print "\nn1 / n2 = ", $n1 / $n2; 
print "\nn1 ** n2 = ", $n1 ** $n2; 
print "\nn1 % n2 = ", $n1 - $n2; 
exit;