Select Code to Download

use strict;
use warnings;
...
}

1;

use strict;
use warnings;
...

s/\\n/\n/g for @ARGV;
die_with_code(@ARGV);

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

>echo %ERRORLEVEL%
7