sub block {
   my $setting = 0;
   {
      return $setting = 1;
   }
}