unshift @INC, sub {
    my ($self, $name) = @_;
    
    # load the module first
    local @INC = grep { !ref($_) || $_ != $self } @INC;
    require $name;

    # add logging to the package

    # instruct Perl to not load the module again
};