C:\Users\alex>perl -Mstrict -w -E "BEGIN { *CORE::GLOBAL::die=sub { 'I am evil' } } sub false { 0 } my $x=false or die 'Died'; say 'not reached';"
not reached