copy( "$dir\\$file", "C:\\testfiles\\$file" )
          or die "Failed to copy $file: $!\n";
    rename $file, $newfile

##</code><code>##

copy( "$dir\\$file", "C:\\testfiles\\$file" )
          or die "Failed to copy $file: $!\n";
    rename "C:\\testfiles\\$file", "C:\\testfiles\\$newfile";

##</code><code>##

copy( "$dir\\$file", "C:\\testfiles\\$newfile" )
          or die "Failed to copy $file: $!\n";

##</code><code>##

sub process_dir {
    my ($dir, $newfile) = @_;