Select Code to Download

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

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

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

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