The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
VLADO / CGI-AuthRegister-1.1 / examples / 2 / index.cgi 
#!/usr/bin/perl
use CGI::AuthRegister;

&import_dir_and_config;
&require_https;  # Require HTTPS connection
&require_login;  # Require login and print HTTP header, and handles logout too

print "<html><body>Successfully logged in as $UserEmail\n";
print "<p>To logout, click here:\n",
 "<a href=\"$ENV{SCRIPT_NAME}?logout\">Logout</a>\n";