See require about the hooks, and caller about who called you(r) hook.

BEGIN {
    unshift @INC, sub {
        my ($self, $file) = @_;
        if ($file =~ /\bAPR.pm$/) {
            print "$file was loaded via " . caller(1);
        };
    };
};
[download]