/usr/share/doc/perl-Error/examples/next-in-loop/Error.pm-next-out-of-catch.pl