#!/user/bin/perl

@textFile = `cat Brain1.txt`;

foreach $line (@textFile) {
chop $line;
open(COUNTERFILE, ">./$line");
print COUNTERFILE "0";
close(COUNTERFILE, $line);
}


##</code><code>##

#!/user/bin/perl

@textFile = `cat Brain1.txt`;

foreach $line (@textFile) {
	chop $line;

	$pagefile = $line.".shtml";

	@ModPageFile = `cat $pagefile`;
	foreach $fileline (@ModPageFile) {
		$fileline =~ s/$line.shtml"-->/$line.shtml"-->\n<SCRIPT language="JavaScript" SRC="http:\/\/mygreatwebsite.net\/cgi-bin\/gcountdir\/gcount.pl?0=$line"> <\/SCRIPT>/
	}

	open(NEWPAGEFILE, ">./$pagefile");
	print NEWPAGEFILE @ModPageFile;
	close(NEWPAGEFILE);
}

exit;
<br>