use File::Find;
use Win32::FileSecurity;
#determine the DACL mask for Full Access
$fullmask = Win32::FileSecurity::MakeMask(FULL);
&find(\&wanted,"\\");

sub wanted {
    # Win32::FileSecurity::Get does not like the paging file, skip it
    next if ($_ eq "pagefile.sys");
     (-f $_) &&  #Line 23
      Win32::FileSecurity::Get($_, \%users) &&
	  (defined $users{"Everyone"}) &&
	    ($users{"Everyone"} == $fullmask) &&
	      print "$File::Find::name\n";
}