use File::Copy;
move("/dev1/fileA","/dev2/fileB");