D:\temp>echo echo Batch! > batch.cmd

D:\temp>cd..

D:\>c:

C:\WINNT>perl -e "system q(cd /d d:\\temp & batch.cmd)"

D:\temp>echo Batch!
Batch!

C:\WINNT>