sub block {
   my $setting= 0;
   {
     $setting= 1;
     COMMAND;
     $setting= 2;
   }
   return $setting;
}
$result= block();