foreach $record (@records) {
    my $UnixTimeStart = $record->[3];
    if (($UnixTimeStart > $eSeconds1) and ($UnixTimeStart < $eSeconds2)) {
      $PSFaultCount++;
      $TLCount++; # Incremnt TL
      if (($TLCount%1000) == 0) {
	$sqla = "dump transaction TomTest with truncate_only";
	$dbAlarm->ct_sql($sqla);
      }
      print "$record->[0], $record->[1], $record->[2], $record->[3],$record->[4],$record->[5]\n";
    }
  }