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";
  }
}