print CLIENT <<EOF;
<HTML>
<HEAD>
<title> Tutorials - Security Problems </title>
<LINK REV="made" HREF="mailto:sara\@fish.com">
</HEAD>
<BODY>
<H1><IMG SRC=$HTML_ROOT/images/sara.gif> Tutorials - Security problems </h1>
<hr>
<h2>Table of contents</h2>
<ul>
EOF
$tuts = `ls html/tutorials/vulnerability/*.html`;
@tutorials = split(/\s+/,$tuts);
 @tut_files = sort {uc($a) cmp uc($b)} @tutorials;
#foreach (<html/tutorials/vulnerability/*.html>) {
foreach (@tut_files) {
$url = $_;
$url =~ s/html\///;
$arg = $url;
$arg =~ s/\.html//;
$arg =~ s.tutorials/vulnerability/..;
$arg = ucfirst($arg);
	print CLIENT <<EOF;
	<br><dt> <IMG SRC=$HTML_ROOT/dots/blackdot.gif>
	<a href="$HTML_SERVER/$url"> <strong>$arg</strong></a>
EOF
}
print CLIENT <<EOF;
</ul>
<hr> <a href=$HTML_STARTPAGE> Back to the SARA start page </a>
</BODY>
</HTML>
EOF
