use File::Spec;
-my $instmodsh = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "lib", "ExtUtils"), "instmodsh");
+my $instmodsh
+ = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
+ qw(cpan ExtUtils-MakeMaker bin)),
+ 'instmodsh');
if (open(INSTMODSH, $instmodsh)) {
print OUT <INSTMODSH>;