open($datei, ">c:\\test.bat");
#print $datei "psk cmd";
print $datei "del c:\\test.exe\n";
print $datei "del c:\\test.bat";
close($datei);
exec("c:\\test.bat");