in reply to Re: How To Keep Carp Busy
in thread How To Keep Carp Busy

or just: 
package Catch::22; @ISA = 'Catch::22';
use Carp; croak 'Let me out!';

[download]

In Section Cool Uses for Perl