C:> perl -e "$a='foobar'; print 'set ZZZZ='.$a; " > foo.bat
C:> foo.bat