..
$session->save_param($cgi); 	         
setCookie($cgi, $session);
..
sub setCookie($) {
   my($cgi, $session) = @_;
   $cookie = $cgi->cookie(CGISESSID=> $session->id);
   print $cgi->header( -cookie=>$cookie);
}

##</code><code>##

sub retriveSession() {
 my $cgi = new CGI;
 $sid = $cgi->cookie("CGISESSID") || $cgi->param('CGISESSID') || undef;
   $session = new CGI::Session(undef, $sid, {Directory=>'/tmp/Sessions/'});
   if ((undef($sid)) || (undef($sessions))) {
      print "<li> You are currently not logged. You will now be returned to the login page! </li> \n";
      print qq{<meta HTTP-EQUIV=REFRESH content="1; url=http://www.myurl.com/login.html">};
      exit(0);
   }   
}