BEGIN {
    eval { die };
    print($@ ? 1 : 0, "\n");   # 1
}

print($@ ? 1 : 0, "\n");       # 0