system('cp', $oldname, "renamed/$newname")
   or die("cp: $!/$?\n");