#!/usr/bin/perl

@filelist =("includes.cgi","connect.cgi","commit.cgi");
@file =();

print "Content-type:text/html\n\n";

foreach $filelist (@filelist){
	$path = $ENV{'SCRIPT_FILENAME'};
		$path =~ s/permissions\.cgi/$filelist/gi;
		push (@file,$path);

}

$changed = chmod 0777,@file;

print "@file<br /><br />";
print "$changed files changed";