use strict;
{my $myString = "hello";
mySub();}
sub mySub{
	print $myString;
}