my ($logged_in, $session_id) = write_session();
   
   #  Dumper to file shows
   #  $VAR1 = 1;
   #  $VAR2 = 'ae83ec8591d8579c1955d3e798dde74b';
   
   my ($logged_in, $session_id) = check_session();

   #  Dumper to file shows
   #  $VAR1 = undef;
   #  $VAR2 = '1209a2de95b31a59d338f70458702860';


sub write_session {

   my $session = new CGI::Session();
   print $session->header();
   
   $session->param('logged_in'   => 1);
   $session->expire('+2h');
   
   return ( $session->param('logged_in'), $session->id() );
}

sub check_session {

   my $session = new CGI::Session();
   
   return ( $session->param('logged_in'), $session->id() );
  
}