@echo off
echo starting
setlocal
cd c:\tmp
set A=B
perl -e "$ENV{X}='Y'; system('cmd')"
echo finished

##</code><code>##

c:\tmp>^C
finished
c:\>

##</code><code>##

c:\>

c:\tmp>

c:\>

c:\tmp>