[draegtun]

Here is an interesting perl6 example which works in Rakudo:

  $ perl6

  > $*PERL<name>;
  rakudo

  > $*PERL<compiler><ver>;
  2014.03.01

  > { CONTROL { print 1; $_.resume }; print 2; warn; say 3 }
  213

ref: https://news.ycombinator.com/item?id=7192294

For a perl5 Condition System see this implementation - https://metacpan.org/pod/ConditionSystem

[mst]

That one's still exception based. You wanted

http://p3rl.org/Worlogog::Incident http://p3rl.org/Worlogog::Restart

which uses Return::MultiLevel to do stack unwinds that can pass through try/catch constructs.