experimental perl pragma to stop die'ing