package aaa;
#{
use strict;
use warnings 'all';
my $var = 'first var';

sub do_a {
	print "In 'aaa' var is set to '$var'\n";
}
#}

package main;
use strict;
use warnings 'all';

my $var;

aaa::do_a();
bbb::do_b();
ccc::do_c();

print "In 'main' var is set to '$var'\n";


package bbb;
#{
use strict;
use warnings 'all';
my $var = 'second time for var';

sub do_b {
	print "In 'bbb' var is set to '$var'\n";
}
#}


package ccc;
#{
use strict;
use warnings 'all';

sub do_c {
	print "In 'ccc' var is set to '$var'\n";
}
#}