# file TestModule.pm:

package TestModule;
die;

1;

# file test.pl
use strict;
use warnings;
use lib '.';

our %failed;

BEGIN {
    *CORE::GLOBAL::require = sub {
        my $success = eval { CORE::require($_[0]) };
        $failed{$_[0]} = 1 unless $success;
        return $success;
    };
}

use TestModule;
use CGI;

use Data::Dumper;
print Dumper \%failed;