package AA::BB;

sub die(@) { die @_ };

sub import {
*CORE::GLOBAL::die = \¨
}

1;

##</code><code>##

#! /usr/bin/perl -w
use strict;

use AA::BB;

eval { die AA::BB->new; };

##</code><code>##

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