#!/usr/local/bin/perl5
print $ENV{'SERVER_PROTOCOL'}," 401 Unauthorized","\n";
print 'Server: ',$ENV{'SERVER_SOFTWARE'},"\n";
print 'WWW-Authenticate: Basic realm="ByPassword"',"\n";
print "Content-type: text/html\n\n";
print <<END;
<HEAD><TITLE>Authorization Required</TITLE></HEAD>
<BODY><H1>Authorization Required</H1>
This server could not verify that you
are authorized to access the document you
requested. Either you supplied the wrong
credentials (e.g., bad password), or your
browser doesn't understand how to supply
the credentials required.<P>
</BODY>
END
exit;