1: http://perlcabal.org/syn/S04.html#Phasers
2: http://perlcabal.org/syn/S04.html#Control_Exceptions
$ perl6 > $*PERL<name>; rakudo > $*PERL<compiler><ver>; 2014.03.01 > { CONTROL { print 1; $_.resume }; print 2; warn; say 3 } 213
For a perl5 Condition System see this implementation - https://metacpan.org/pod/ConditionSystem
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.
"It's not Lisp!"
1: http://perlcabal.org/syn/S04.html#Phasers
2: http://perlcabal.org/syn/S04.html#Control_Exceptions