#!/usr/local/bin/perl require 'jcode.pl'; print "Content-type: text/html\n\n"; $browser=$ENV{'HTTP_USER_AGENT'}; if (($browser =~ /Win/) || ($browser =~ /win/) || ($browser =~ /WIN/)){ print "403 Forbidden

Forbidden

You don't have permission to access /~noda/ on this server.

Apache/1.3.4 Server at www.ohnolab.org Port 80

"; exit 0; } print< check

browser check

$browser EndOfHTML exit 0;