my $myRoot;
$myRoot = "/home/56501";
    
    
find(\&myFileFilter, $myRoot);     
    sub myFileFilter
    {
       my $name = $File::Find::name;
       if($name =~ /caches$/ and -d $name)
       {
        #print $name ."\n";
        chmod(0777,$name);
        print $name."\n";
            
        
         my $filename;            
                          chdir $name;
         
        foreach $filename (<*.html>) 
        {
               
                           print $filename."\n";
               
                            chown("56666","65533",$filename);
        }
    }
}