# not tested
sub SigDieHandler
{
    unless ($^S) # skip if die happened in an eval
    {
        ...; # create and send email
    }
}