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");
}