use warnings;
use strict;
my $a = 5;
{
  no warnings; # remove to see what happens
  print $a + $b;
}