#!/usr/bin/perl -w use CGI ':standard'; print header(); print < Duke College Mentors - Discussion Board

TEMPLATE open(LOGFILE, "; close(LOGFILE); for $i (1 .. $threads){ $filename = "thread"."$i".".txt"; $wholetext = ""; open(MYFILE,"$filename") or die "Can't open $filename : $!"; for $mytext (){$wholetext .= "$mytext";} close MYFILE; @mosttext = split(/-titlebreak-/,$wholetext); print "","$mosttext[0]","\n
\n"; } print < Create new thread:


Upcoming Events
TEMPLATE print end_html();