>perl 587042.pl 6 "Baz"
Caught: Foo at 587042.pl line 9
Caught: Bar
Baz at 587042.pl line 16

>echo %ERRORLEVEL%
6

>perl 587042.pl 7 "Boo\n"
Caught: Foo at 587042.pl line 9
Caught: Bar
Boo

>echo %ERRORLEVEL%
7