if ($ENV{'REMOTE_USER'} ne "robinsc")
{&throw401;
print "Invalid user I have no record of User $ENV{'REMOTE_USER'}
";
exit;}
print "HTTP/1.0 200 Ok \n";
print "Content-type:text/html\n\n";
print "You made ityou made it, $ENV{'REMOTE_USER'} $ENV{'REMOTE_PASS'}
";
foreach $key (keys %ENV)
{
printf "$key = $ENV{$key}
\n";
}
sub throw401
{
print "HTTP/1.0 401 Access Denied\n";
print "WWW-Authenticate: Basic,realm=\"Web Server\" \n\n";
}