print "Location: http://www.mydomain.com/cgi-bin/index.cgi?sid=$sid\n\n";

##</code><code>##

my $sid = $cgi -> param('sid') || undef; # retrieve session id from query string
	my $session = new CGI::Session("driver:File", $sid, {Directory => '/home/mysite/public_html/tmp'});
	my $session_email = $session -> param('session_email'); # retrieve encrypted email (username) from session object
	my $session_uid = $session -> param('session_uid'); # retrieve uid (user's id) from session object

# if session file doesn't have email or uid info, kill cgi!
	if (($session_email eq '') || ($session_uid eq '')) {
		print "Location: http://www.mysite.com/cgi-bin/authentication_error.cgi\n\n";
		exit;
	}