http://www.swag505.com/70r16/perl-alien-try-catch-throw/