#!/usr/bin/perl

use warnings;
use strict;

my $a = 5;
print "$a\n";

my $b = $a++;
print "$b\n";

$a = 5;
print "$a\n";

my $c = ++$a;
print "$c\n";