dir *.txt /b | perl -ne "chomp; next until -e; $o = $_; s/(.*)/OLD $1/; rename($o, $_);"
perl -pe "s/(.*)/net stop $1/; system($_);" a.list