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

MAIN:
{
	my $x = 1;
	print "x: ", $x, "\n";
	$x = 2;
	print "x: ", $x, "\n";
	$x = 3;
	print "x: ", $x, "\n";
}