In perl, a common exit can easily be implemented with a naked block inside the routine.

I provided an example of this in my node. :-) I also mentioned the approach that Abigail-II suggests.

---
demerphq