BEGIN {
    local $SIG{__DIE__} = sub { die $_[0] };
    # if abfrage mit eval wie vorher
}