#!/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 "