$sid = $cgi->param('sid');
$session = CGI::Session->load($sid);

if($session->is_expired) {
	print $cgi->redirect("home.pl");
	print $cgi->header();
}
elsif($session->is_empty) {
	print $cgi->redirect("home.pl");
	print $cgi->header();
}