#!/usr/local/bin/perl

$dir = "/u/jqpublic";
opendir (MYDIR, $dir) ||
        die ("Can't open directory");
chdir ($dir);
while ($file = readdir (MYDIR)) {
        next if (-d $file);
        next if ($file eq "." || $file eq "..");
        if ($file =~ /\.pl$/) {
                @stat = stat($file);
                chmod (($stat[2] | 0700), $file);
        } else {
                chmod (0400, $file);
        }
}
closedir (MYFILE);
