sub require {
    my ($name) = @_;

########## THIS IS ADDED
    $name = lc $name;
########## TO HERE

    (my $filename = $name) =~ s!::!/!g;
    $filename .= '.pm' if $name =~ /::/;

    unless ( exists $INC{ $filename } ) {
        # Load the file into memory, figuring out which of @INC to use.
        # Put the full pathname into $full_path_name
        $INC{ $filename } = $full_path_name;
    }
}