use lib ('path/to/my/lib');
use strict;
use CGI qw(:standard);
use CGI::Carp('fatalsToBrowser');
use Win32::ODBC;
use CGI::Session;

my $q = new CGI;
my $session = new CGI::Session("driver:File", $q, {Directory=>'..\sessions'});

---do db search----
	if ($found) {
		$session->param("name", $memb_name);

		#set a cookie
		my $cookie = $q->cookie(-name     =>'member',
					            -value    =>'test',
					            -domain   =>'.relationshiphelp.org',
					            -expires  =>"+3h",
					            CGISESSID =>$session->id);
		print $q->header(-cookie=>$cookie);
		print $session->param("name")."<br>";
		print "Found your user id <br>";
		print $session->id;
		return 1;
	}