my $user = $q->remote_user;
my $password = "password"; # doesn't matter

if ($user ne "" and $password ne "") {
    my $access = &authorize($user,$password);
    my $c_a = $q->cookie(-name=>'access',
			 -value=>$access,
			 -expires=>$expires);
    my $c_u = $q->cookie(-name=>'user',
			 -value=>$user,
			 -expires=>$expires);
    print
	$q->header(-cookie=>[$c_a, $c_u]) .
	$q->start_html(-title=>"R3: login", -style=>{-code=>&css()}) .
	"<h1>Welcome to R3!</h1><h2>Hello, $user.<h2><h3>You have access level $access and are logged in for $expires.<br>Have a nice day.</h3>" .
	$q->end_html;
    exit(0);