#!/usr/bin/perl

use CGI qw(:standard);
$authl = param("authl");
$authp = param("authp");
system "./auth.cgi $authl $authp";
$retcode = $? / 256;
if ($retcode ne "1") { exit; }
#auth.cgi?logout=1

print "<hr>";