#!/usr/bin/perl 
# 401response.pl 
 
use warnings; 
use strict; 
use CGI; 
 
my $cgi = new CGI; 
 
print $cgi->header('type text/html','401 Authorization Required!');

##</code><code>##

	

127.0.0.1 - - [15/Jul/2009:01:01:53 +0000] "GET /cgi-bin/401response.pl HTTP/1.1" 401 -