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

##</code><code>##

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