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