Select Code to Download

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

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