diff -u psunami-0.4.old/psunami.cgi psunami-0.4/psunami.cgi
--- psunami-0.4.old/psunami.cgi	Wed Oct 11 13:36:06 2000
+++ psunami-0.4/psunami.cgi	Wed Oct 11 13:48:45 2000
@@ -77,7 +77,7 @@
 	
 	$color_to_use = 1;
 	print header(-cookie=>$cookie);
-	print $boardlist_top_html;
+	&boardlist_top_html;
 	
 	#if($use_login_system eq 'yes')
 	#{
@@ -256,7 +256,7 @@
 	print '</table>';
 	print '</td></tr></table>';
 	print "<center><small><small>$version_string</small></small></center>";
-	print $boardlist_bottom_html;
+	&boardlist_bottom_html;
 }
 ##################### END SHOW_BOARD_LIST ######################
 
@@ -344,7 +344,7 @@
 	$board_name = $board_info[1];
 	
 	print header(-cookie=>$cookie);
-	print $topiclist_top_html;
+	&topiclist_top_html;
 		
 	print '<center>';
 	
@@ -427,7 +427,7 @@
 		print "</td><td>$poster</td><td nowrap>$num_replies</td><td nowrap>$time</td></tr>";
 	}
 	print '</table></td></tr></table>';
-	print $topiclist_bottom_html;
+	&topiclist_bottom_html;
 }
 ################# END SHOW_BOARD ################
 
@@ -514,15 +514,15 @@
 	my $color_to_use = 1;
 		
 	my @board_info = &get_board_info($boardnum);
-	my $board_name = $board_info[1];
+	$board_name = $board_info[1];
 	
 	my @thread_info = &get_thread_info($boardnum, $thread);
-	my $thread_name = $thread_info[3];
+	$thread_name = $thread_info[3];
 	
 	print header(-cookie=>$cookie);
-	print $topic_top_html;
+	&topic_top_html;
 	
-	print "<center><h1>$real_board_name</h1></center>";
+	#print "<center><h1>$real_board_name</h1></center>";
 	print '<center>';
 	
 	if($write_access eq 'on')
@@ -660,7 +660,7 @@
 	}
 
 	print '</table></td></tr></table>';
-	print $topic_bottom_html;
+	&topic_bottom_html;
 }
 ############## END SHOW_THREAD ##################
 
diff -u psunami-0.4.old/psunami_html.pl psunami-0.4/psunami_html.pl
--- psunami-0.4.old/psunami_html.pl	Wed Oct 11 13:36:11 2000
+++ psunami-0.4/psunami_html.pl	Wed Oct 11 14:04:27 2000
@@ -15,31 +15,37 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 
-$boardlist_top_html = "
+sub boardlist_top_html {
+print "
 <html>
 <head><title>$real_board_name</title></head>
 <body bgcolor=\"$background_color\" text=\"$text_color\" link=\"$link_color\" vlink=\"$visited_link_color\" alink=\"$active_link_color\">
 <center><h1>$real_board_name</h1></center><br><br>";
+}
 
 
-$boardlist_bottom_html = "
+sub boardlist_bottom_html {
+print "
 <br><br>
 <center>
 <small>
 Psunami Bulletin Board 0.4 by Ryan Silk. &copy; 2000.
 </small>
 </center>";
+}
 
-
-$topiclist_top_html = "
+sub topiclist_top_html {
+print "
 <html>
 <head><title>$real_board_name</title></head>
 <body bgcolor=\"$background_color\" text=\"$text_color\" link=\"$link_color\" vlink=\"$visited_link_color\" alink=\"$active_link_color\">
 <center>
-<h1>$real_board_name</h1>";
+<h1>$real_board_name : $board_name</h1>";
+}
 
 
-$topiclist_bottom_html = "
+sub topiclist_bottom_html {
+print "
 <br><br>
 <center>
 <small>
@@ -47,18 +53,22 @@
 All Comments are the property of their respective posters.
 </small>
 </center>";
+}
 
-
-$topic_top_html = "
+sub topic_top_html {
+print "
 <html>
 <head>
 <title>$real_board_name</title>
 <meta http-equiv=\"expires\" content=\"now\">
 </head>
-<body bgcolor=\"$background_color\" text=\"$text_color\" link=\"$link_color\" vlink=\"$visited_link_color\" alink=\"$active_link_color\">";
-
+<body bgcolor=\"$background_color\" text=\"$text_color\" link=\"$link_color\" vlink=\"$visited_link_color\" alink=\"$active_link_color\">
+<center>
+<h1>$real_board_name : $board_name : $thread_name</h1>";
+}
 
-$topic_bottom_html = "
+sub topic_bottom_html {
+print "
 <br><br>
 <center>
 <small>
@@ -66,3 +76,6 @@
 All Comments are the property of their respective posters.
 </small>
 </center>";
+}
+
+"dummy"; #perl dummy, return values, ?

