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