.
.

tieFile();
.
.
LOOP: until($pktype eq 'EOJ') {
.
.
  while($agntsock->recv($pkstr, $MAXLEN)) {
    .
    .
    my $oldfilehdl = select(%mmResource);
    $| = 1;
    $mmResource{$mmKey} = join('|', ($timeframe, $currentDay, $startTime, $endTime, $mmRec));
    select($oldfilehdl);
    .
    .
  }
.
.
}

sub tieFile {
  my $sr = 'tieFile';  
  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  my $resource = sprintf("ResourceMM_%02d%02d%02d%02d.dbm", $mday, $hour, $min, $sec);

  tie %mmResource, "DB_File", $resource, O_RDWR|O_CREAT, 0640, $DB_HASH
	         or die "Cannot open file $resource: $!\n";
  $beslog->pnl($sr, 4, "tie file, $resource\n");
}