#!/bin/perl
# Shows post and pre-increment/decrement


print "Please enter a number: ";
$n1 = <STDIN>;
# Next line prints current value of n1, THEN increments n1
$rott = $n1++;
# Next line increments n1 then prints it 
$peke = ++$n1;
# Next line decrements n1 
$n1--;
# Next line prints current value of n1, THEN decrements n1
$spaniel = $n1--;
# Next line decrements n1 then prints it
$dobe = --$n1;

print --$n1," is now the value of \$n1\n";
print "rott is ",$rott,"\n";
print "peke is ",$peke,"\n";
print "spaniel is ",$spaniel,"\n";
print "dobe is ",$dobe,"\n";