package BBB;
use lib '.';
use AAA;
use feature 'say';
sub new{
    my $class=shift;
    my $self=bless {},$class;
    return $self;
}
sub hello{
    my $self=shift;
    say 'hello';
}
sub hello2{
    my $self=shift;
    $b->hello();
}