for /f "tokens=1,2,3 delims=/- " %%x in ("%date%") do set d=%%z%%y%%x
for /f "tokens=1,2,3 delims=:. " %%x in ("%time%") do set t=%%x%%y%%z
set logfile="D:\FTP%d%_%t%.log"
set Source="\srcpath"
set Server="servername"
set UserName="id"
set Password="pwd"
set File="ABC.TXT.yyyyMMdd"

set FtpLocation="/home/TEST"
perl Getfile.pl %Source% %server% %UserName% %Password% %FtpLocation% %File%  >> %logfile% 2>&1