The File::Copy copy function allows you to give the copy a new name. Just say

    my $newname = make_newname( $file);
    copy( "$dir\\$file", "C:\\testfiles\\$newname" )
        or die "Failed to copy $file: $!\n";
[download]

with some suitable definition of sub make_newname.

The rename function is not difficult to use, either. Syntax is rename OLDNAME, NEWNAME.

After Compline,
Zaxo