#!/usr/bin/env perl
use utf8;
use strict;
use warnings;

MAIN:
{
	my $a = 3;

	++$a;
	print "++a: ", $a, "\n";
	--$a;
	print "--a: ", $a, "\n";

	$a += 2;
	print "a += 2 : ", $a, "\n";
	$a *= 3;
	print "a *= 3 : ", $a, "\n";
	$a -= 4;
	print "a -= 4 : ", $a, "\n";
	$a /= 5;
	print "a /= 5 : ", $a, "\n";
}