BEGIN { $^W = 1; }
use AA::BB;
use strict 'refs';
print "Caught exception $@" unless eval {
    do {
        &CORE::GLOBAL::die('AA::BB'->new)
    }
};
test.pl syntax OK