The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
PMURIAS / Mildew-Setting-SMOP-0.03 / t / p6 / basic / control_exception.t 
say "1..2";
{
  {
     say "ok 1";
     ::ControlExceptionReturn.new().throw();
  }
  say "not ok 2";
}
CONTROL {
  $_.handled = 1;
  say "ok 2";
}