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