#!/usr/bin/perl -w
print "Content-type: text\/plain", "\n\n";
my $thispage = $ENV{DOCUMENT_NAME};
print "
\n";
if ($thispage eq "index.html") {
print Home";
} else {
print "Home";
};
print "
\n";
if ($thispage eq "blog.html") {
print WebLog";
} else {
print "WebLog";
};
print "
\n";
if ($thispage eq "dls.html") {
print Downloads";
} else {
print "Downloads";
};
print "
Links";
} else {
print "Links";
};
print "\n"