$session = new CGI::Session(undef, undef, {Directory=>'./tmp'}) or die CGI::Session->errstr;

##</code><code>##

my $action = $cgi->param("submit");

if($action eq "Sign in") { #If user signing in
  $cookie = $tools->sign_in($cgi,$dbh,$session);
  if($cookie eq "0") { #Login failed
    print $cgi->header;
    print $cgi->start_html(-title=>"Home Page");
    print "Login failed";
    $session->delete;
    $logged = 0;
  }
  else { #Login successful
    print $cgi->header(-cookie=>$cookie);
    print $cgi->start_html(-title=>"Home Page");
    print "Welcome ".$session->param("user_name");
    print $cgi->start_multipart_form(-method=>'post',
                 -action=>'main.pl',
                 -name=>'sign_out');
    print $cgi->submit(-name=>'submit',-value=>'Sign out');
    print $cgi->end_form;
    $session->expire('+30m');
    $logged = 1;
  }
}
else {
  print $cgi->header;
  print $cgi->start_html(-title=>"Home Page");
}

##</code><code>##

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 session."),
   $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);
}