CGI-Auth
view release on metacpan or search on metacpan
<head>
<title>Login</title>
</head>
<body>
<p>Please enter your login information:</p>
DEFAULT
}
if ($msg)
{
print qq(<p style="color: red; font-weight: bold;">$msg</p>\n);
}
my $formaction = $self->{formaction};
print <<START;
<form method=post action="$formaction">
<table border=0>
START
print $self->FormFields;
( run in 0.800 second using v1.01-cache-2.11-cpan-5dc5da66d9d )