#!/usr/bin/perl
use strict;
use CGI qw(header);
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;

if ( not $ENV{'REMOTE_USER'} ) {
    print header(-status => "401 Unauthorized",
     -www_authenticate => 'Basic realm="Test"',
     # Falls NonparsedHeaders notwendig, auskommetieren
     #-nph => 1
     #
    );
    exit;
 }
else {
    print header(-type=>"text/plain; charset=utf-8");
    print "JAWOLL! Login erfolgt!";
}

1;