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