perlのファイルコピー、移動

copy:ファイルコピー
move:ファイル移動

#ファイルコピー
use File::Copy;
#ファイル存在チェック
if(-e "ff.txt"){
  print "ファイル存在\n";
  
  copy("ff.txt","ff00.txt");
  #ファイル移動
  move("ff11.txt","./data/ff11.txt");
  if(-e "ff00.txt"){
    print "ファイルコピー完了\n";
  }
}else{
  print "ファイル存在しない\n";
}