$OldDir = Win32::GetCwd();    
    Win32::SetCwd($TmpDir);
    system("md JUTmp");
    Win32::SetCwd("$TmpDir\\JUTmp");
    system("del /Q /s *.*");