Test::Exit Perl module provides some simple tools for testing code that might call exit(), providing you with the status code without exiting the test file.  |  http://search.cpan.org/dist/Test-Exit/