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