package AA::BB;

sub die(@) { print "die called with args '@_'" };

sub import {
*CORE::GLOBAL::die = \¨
}
sub new {
    return bless {},shift;
}
1;