Perl File Copy and Move tb/w Dir

use File::Copy;
copy("hash2.txt","hash.txt") or die "Copy failed: $!";
move("dest_dir/test_file","hash2.txt") or die "Move failed: $!";