C:\Perl\bin\wperl.exe -e "$ARGV[0]=~/(.*\\)([^\\\.]*)(.*)/;$file=$1.$2.'_'.(join'',(localtime)[5]+1900,(localtime)[4]+1,(sprintf\"%.2d%.2d%.2d\",(localtime)[3,2,1])).$3;rename $ARGV[0],$file;"