#!/usr/local/bin/perl require '/usr/local/ns-home/cgi-bin/cgi-lib.p1' ; # pulls in special library for easy reading of # environment variables &ReadParse; $agent = $ENV{'HTTP_USER_AGENT'} ; if ($agent = ~ /Mozilla\/3.0|Mozilla\/4.0/i) { $file = "netscapehome.htm"; } if ($agent = ~ /MSIE 3.0|MSIE 4.0/i) { $file = "mshome.htm" ; } else { $file = "home.htm" ; } print "Location: http://www.bigcompany.com/$file" , "\n\n" ;