CHECK {
    my %snap = %INC;

    sub report {
        for ( keys %INC ) {
            my $ans = $snap{ $_} ? 'use()d' : 'require()d';
            print "$_ was $ans\n";
        }
    }
}