>type script.bat
@echo off
set today=
echo today=%today%
for /f "usebackq delims=" %%q in (`perl -MPOSIX -E"say strftime('%Y%m%d', localtime)"`) do set today=%%q
echo today=%today%