copy($File::Find::name, $new_location) or warn "$!" ;