sub ProcessLoginRequest
{
  my ($query) = @_;
  my $status = 0;
#  $sessionname = 'CGISESSID';
#  my %cookies = CGI::Cookie->fetch;
#  my $sid = $cookies{$sessionname}->value; 
  my $sid = GetUserSessionCookie();
  warn("ProcessLoginRequest Query: '$query'");
  warn("ProcessLoginRequest SID from cookie: '$sid'");

  #Check if it got valid return from fetch cookie
  if ($sid ne 0){
    $status = 1;
[download]

But later I compare against the stored session ID.

#---------------------------------------------------------------------
+----------
# FUNCTION: OpenSession($dbh, $sid)
# Opens existing session or creates new depending on $sid
#---------------------------------------------------------------------
+----------
sub OpenSession{
  my ($dbh, $sid)= @_;
  $session  = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh, Lo
+ckHandle=>$dbh});
  return $session;
}
[download]

OK. Then here's what you can do:
1) Fix your original post's formatting (ie: add <p> tags). See Markup in the Monastery
2) Add use Data::Dumper; at the top of your file, and turn warn %cookies; into warn Dumper \%cookies;, you'll get a clearer view of what fetch() returns.

I did use the tags on the text. I guess you mean at every paragraph etc.

Where does data dumper dump data?

As a side issue, I looked at cookies in the firefox options and it showed three on my main page including the CGISESSID

I then looked at the cookies with the Firebug cookie panel and there were only two and unrecognizable in relation to the Firefox Options cookie viewer. Is there something obvious zi am missing?

Thanks