sub sessionValidate{
  my ($session, $file) = @_;
  my %stored;
  return 0 unless dbmopen %stored, $file, 0444;
  %$session = %stored;
  dbmclose %stored;
}