if ( (open FILE, "${sessionFile}.db"){
        close FILE;
        dbmopen %stored, $sessionFile, 0655;
        %session = %stored;
        dbmclose %stored;
        return 1;
    } else {;
        return 0;
    }

##</code><code>##

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

##</code><code>##

  if ( sessionValidate(\%session, "$systemRoot/sessions/$FORM{sessionID}") ){
    # ...
  }else{
    # ...
  }