/usr/share/doc/liberror-perl/examples/next-in-loop/