Select Code to Download

system("cp $foo $bar");
system("mv $foo $bar");

use File::Copy;
copy($foo,$bar);
move($foo,$bar);