# File:	inc.pl
# Title: Increment (add 1). N++. Decrement (subtract 1). N--
#		 INPUT FROM KEYBOARD
# Author:	Mihaela Malita
#		Input number? 4
#		Increment: 4 + 1 = 5 
#		Decrement: 5 - 1 = 4 

print "Input number? ";
$n = <STDIN>; chop($n);

print "Increment: $n + 1 ="; 
$n++;   # same as $n = $n + 1;  
print  $n; 

print "\nDecrement: $n - 1 = "; 
$n--;   # same as $n = $n - 1;
print  $n; 

exit;