if (!copy($_, File::Spec->catfile($newdir, $File::Find::name))) {
chdir($oldcurrdir);
$form->error("$ERRNO: cp $File::Find::name");
if (!copy($_, File::Spec->catfile($newdir, $File::Find::name))) {
chdir($oldcurrdir);
$form->error("$ERRNO: cp $File::Find::name");