$prefix = "hoge";
$suffix = ".bat";
$file_max_cnt = 2000;

for($i = 1; $i <= $file_max_cnt; $i++) {
　　$filename = $prefix. $i. $suffix;
　　print $filename;
　　$fp = open(FOUT, ">$filename") or die "file open error!";
　　print FOUT $filename;
　　close(FOUT);
}
}