Select Code to Download

use Scope::Guard qw( );

...
      $sentinel->dismiss();
   }
}

{
   package AtomicState;  # yucky name!
...
      $transact->commit();
   }
}