my $filename;            
                         chdir $name;
        
        foreach $filename (<*.html>)
        {
               
                           print $filename."\n";
               
                            chown("56666","65533",$filename);
        }