use strict;
use CGI::Session;
use CGI;
use CGI::Cookie;

print "Content-type: text/html\n\n";
my $cgi = new CGI("CGISESSID");
my $session = CGI::Session->load or die CGI::Session->errstr;
print $session->header;
if ($session->is_expired) {
  print $session->header,
    $cgi->start_html,
     $cgi->p("Your session timed out. Click here to start a new sessio+n."),
   $cgi->end_html;
  exit(0);
}
if($session->is_empty) {
  print $cgi->start_html;
  print "Click here to sign in";
  print $cgi->end_html;
  exit(0);
}

print "</body>";
print "</html>";