Name	Size	Mode	Actions
Error.pm-eval.pl	487	0644	editdlrm
Error.pm-next-label.pl	442	0644	editdlrm
Error.pm-next-out-of-catch.pl	512	0644	editdlrm
Error.pm-next.pl	409	0644	editdlrm
README	163	0644	editdlrm

#!/usr/bin/perl use strict; use warnings; use Error qw(:try); use IO::Handle; package MyError; use base 'Error'; package SecondError; use base 'Error'; package main; autoflush STDOUT 1; foreach my $i (1 .. 100) { try { if ($i % 10 == 0) { throw MyError; } } catch MyError with { my $E = shift; next; }; print "$i\n"; }