sub SaveSession
{
  # this could self generate the session id using
  # a db's autoincrament feature, or with uuids or 
  # a different homebrewed method
  my $session_id = shift()
  my $session_struct = shift();

  my $serialized_struct = Storable::freeze($session_struct);
  
  #pseudo sql
  insert into session_table (id,session) values   
  ($session_id, $serialized_struct)

  handle errors
  return
}

sub GetSession
{
  my $session_id = shift();
  
  #pseudo sql
  select * from session_table where id = $session_id

  $row = sql result

  handle errors

  return Storable::thaw($row->{'session'});
}