if (@request_aliases) {    
    require File::Copy;
    for (@request_aliases) {
        File::Copy::copy("bin/lwp-request", "bin/$_") || die "Can't copy bin/$_";
    chmod(0755, "bin/$_");
    push(@programs_to_install, $_);
    }
}

# ...

WriteMakefile(
   NAME          => 'LWP',
   EXE_FILES     => [ map "bin/$_", @programs_to_install ],
   'clean'       => { FILES => join(" ", map "bin/$_", @request_aliases) },
);