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

##</code><code>##

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