#!/usr/bin/perl -w
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\n\n");
exit;