$id = $session->id();
$session->param('logged_in', $username);
$session->expire('+10m');
print "Location: welcome.pl?sid=$id\n\n";

##</code><code>##

$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();
}