#!/usr/bin/perl

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

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

foreach $filelist (@filelist){
		$path = $ENV{'SCRIPT_FILENAME'};
		$path =~ s/filelist\.cgi/$filelist/gi;
			print "$filelist -- $path<br />";
			
}