use strict; 
use File::Find; 
my $dir = '/webdir/pathhere';
find(\&ReadPerm, $dir); 
sub ReadPerm { 
  if (! -w $_) { 
    print "$File::Find::name\n"; 
  }
}