% perl -MO=Deparse testdie.pl
eval {
    'AA::BB'->CORE::GLOBAL::die->new;
};