perl -MFile::Find -le "File::Find::find(sub{print $File::Find::name if /vcvars32/i},@ARGV)" C:/