а им всем права надо менять?
если да, то можно сделать так:
#!/usr/bin/perl
my $my_dir=\'/path/to\';
my @file;
opendir(FILE, $my_dir)||die("Can\'t open $my_dir, reason: $!");
(undef,undef,@file)=readdir(FILE)
close FILE;
my $how=chmod(0777, @file);
print "Content-type: text/html\\n\\n";
print "
кол-во измененных файлов: $how
";
Скрипт закидывается в директорию с файлами, в
my $my_dir=\'/path/to\';
стоит указать полный путь к ней.