#!/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]<br>";
}
print "All done";