#!/usr/bin/perl
$x=5; $y=0;
$y=++$x;     # Add 1 to $x first; then assign to $y
print "Pre-increment:\n";
print "y is $y\n";
print "x is $x\n";


$x=5;
$y=0;
print "Post-increment:\n";
$y=$x++;     # Assign value in $x to $y; then add 1 to $x
print "y is $y\n";
print "x is $x\n";