my $session_data;
my $session = load CGI::Session();
if ($session->param(-name=>'LoggedIn')) {
	$session->expire('LoggedIn', "+10000s");
	$session_data = $session->param(-name=>'LoggedIn');
}
$session->flush();

#Not logged in
unless ($session_data) {
	print redirect('http://www.Domain.com/Login.pl?Event=You must be logged in to view this page&Referer=http://www.Domain.com/Members.pl');
	exit(1);
}

#Begin logged in
if ($session_data) {
	print $session->header();
	#etc
}