#!/usr/bin/perl

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

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

$path = $ENV{'SCRIPT_FILENAME'});


foreach $filelist (@filelist){
		$path =~ s/permissions.cgi/$filename/gi;
			print "$filelist -- $path<br />";
}