use FindBin;

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