...

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