Another option stemming from the core would be to look and see if perl itsself has any test.t's for exit and how those were done.