#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Auth;

my $auth = new CGI::Auth({
    -authdir                => 'D:/CGI',
    -formaction             => 'test.cgi',
    -authfields             => [
        {id => 'user', display => 'User Name', hidden => 0, required => 1},
        {id => 'pw', display => 'Password', hidden => 1, required => 1},
    ],
}) or die $!;
$auth->check;

print CGI->header(),CGI->h2( 'Eingeloggt' );