Select Code to Download

If the database does not exist, it is created with 
protection specified by MASK (as modified by the "umask").

sub validateSession{
  my ($session, $file) = @_;
...
  %$session = %stored;
  dbmclose %stored;
}