#!/usr/bin/perl -w
use strict;
use CGI qw(header);
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
print header(-status => "401 unauthorized",
     -www_authenticate => 'Basic realm="Test Login"',
    -type=>"text/html; charset=utf-8");
exit;