use strict;
use warnings;

BEGIN {
    *CORE::GLOBAL::require = sub {
        my ($mod) = @_;

        my $caller = caller;
        warn "$caller uses $mod.\n";

        CORE::require($mod) unless $mod =~ /^5/;
    };
}

use CGI;