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