use strict;
use warnings;

my $counter = 1;

print "With ++\$counter was 1 and returns ", ++$counter, "\n";
print "\$counter now contains: $counter\n\n";

$counter = 1;
print "With \$counter++ was 1 and returns ", $counter++, "\n";
print "\$counter now contains: $counter\n";