use warnings;
use strict;
use CGI;

my $cgi = new CGI;

print $cgi->header('type text/html','401 Authorization Required!');
__END__
Status: 401 Authorization Required!
Content-Type: type text/html