#!/usr/bin/perl
print "content-type:  text/html\n\n";
# use CGI::Carp qw( fatalsToBrowser );
use File::Find::Rule;

my @files = File::Find::Rule->file()->name('*.pl')->in('/home/cristofa/public_html');
# set ->in('.') to start from current directory

for ($x=0; $x<@files; $x++){
chmod (0755, $files[$x]);
print "$files[$x]&lt;br&gt;";
}

print "All done";