#!perl -w

use File::Find;

find(sub {unlink "$File::Find::dir/$_" if ($_ eq 'desktop.ini')},
	"C:/Windows/Temporary Internet Files");