copy($oldname, "renamed/$newname")
   or die("copy: $!\n");