Select Code to Download

## presuming your sample vars for dir, old, new
## Somewhat untested, but . . .
...
    warn "Problem moving '$path': $ret\n";
  }
}