$EXIT = ~0
END { $? and $? = $EXIT; }
sub xdie { $EXIT = shift; die @_; }

xdie 16, "argh";