set TkPerlDir=d:\Programs\Perl
set Header=MgO
for %%a in (080 090 095 100 110 120 140 160 180 200) do perl %TkPerlDir%\VASP\VASP.pl --Action=MakeDOSCSV --Width=0.1 --IgnoreZero=0 %Header%-a%%a\DOS\DOSCAR DOS-a%%a.csv