#!/usr/bin/perl

use warnings;
use CGI::Session '-ip_match';

$session = CGI::Session->load();

print "Content-type: text/html\r\n\r\n";

print qq|

# all the html stuffs here
<a href='cgi-bin/logout.cgi'>Log out</a>

|;