use strict;
use warnings;

if (1) {
	my $a = 100;
}
print $a;