use File::Copy;
copy $source, $dest;