#!/usr/bin/perl
# Define Variables
#$date = `/bin/date`; chop($date);
$mailme = 'webmaster@aperson.com';
$browser = "$ENV{'HTTP_USER_AGENT'}"; # Browser name, version, OS.
$homepage = "http://aperson.com"; # default homepage
print "Content-type: text/html\n\n";
print "\n";
print "\n";
if ($browser =~ /MSIE/) { # They are using microsoft browser
if (substr($browser,$[+8,1) >= 3){
$homepage = "/r.cgi?F=intro"
}
}
else {
if (substr($browser,$[+8,1) >= 2){
$homepage = "/r.cgi?F=intro"
}
}
print "
\n\n";
print "\n";
print " Home | \n";
print "\n";
print " Site Search | \n";
print "\n";
print " Web Search | \n";
print "\n";
print " GuestBook | \n";
print "\n";
print " Changes | \n";
print "\n";
print " Contact Me\n";
print "
\n";
print "Today is $ENV{'DATE_LOCAL'}
\n";
print "This document last modified on $ENV{'LAST_MODIFIED'}
\n";
print "Copyright © 1996-1998 Aperson.Com
\n";
print "For problems with this site please e-mail \n";
print "\n";
print " $mailme
\n";
print "\n";
print " \n