#!/usr/bin/perl

use HTTPD::Authen;

print qq§Content-type: text/plain\n\n§;

$auth = new HTTPD::Authen(DBType=>"Text",DB=>"/path/to/passwd_file/user_manage/users/passwd", Server=>"Apache");
$authen = new HTTPD::Authen::Basic($auth);





    if($authen->check("jeorgen", "foo")) {
	print "Well, the passwords match at least\n";
    }
    else {
	print "Password mismatch! Intruder alert! Intruder alert!\n";
    }