use FindBin;

mkdir("C:/ordner_vom_perlskript");
system($FindBin::Bin."/bat.bat");