package AA;

use warnings;

a b

sub aa {
    my $self = shift;
    
    return $self;
}

1;
__END__