for %%i in (dir/b *.t) do perl -w %%i 1