use My::Module @args; # This becomes ... BEGIN { require My::Module; My::Module->import( @args ); } #### require My::Module; # This becomes ... sub require { my ($name) = @_; (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; } } #### 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; } }