$!/usr/local/bin/perl

# abindex.pl abstract index creation CGI script

# Passed parameter (if possible) -
#	directory to be in

#Know  subdirectory specified, if possible via passed parameter
$sub_dir="abstracts/papers"
$root = "/data/globec/httpd/htdocs"
while ($filename = <${root}/${sub_dir}/*.html>) {
	open(TEXT, $filename);
	while ($_ = <TEXT>) {
		#Check for title (and authors?)
		
	if ( TEXT contains <title> and until </title> tags,
		use words to create html link