use strict;

sub f {
   # strict still in effect in this child block

   if (...) {
      # strict still in effect in this child block

      for (...) {
         # strict still in effect in this child block

         {
            # strict still in effect in this child block
         }
      }
   }
}

##</code><code>##

my $n;

sub f {
   # $n is still accessible in this child block

   if (...) {
      # $n is still accessible in this child block

      for (...) {
         # $n is still accessible in this child block

         {
            # $n is still accessible in this child block
         }
      }
   }
}

##</code><code>##

{
   use strict;
   # strict still in effect
}
# strict no longer in effect

##</code><code>##

{
   my $n;
   # $n accessible.
}
# $n no longer accessible.