Select Code to Download

use strict;
use warnings;
...
sub exiter { exit(42); }

1;

use warnings;
use strict;
...
}

throws_ok( sub { exiter () }, qr/exited with code 42/, q{killer exited
+});