my $datestr;
  if ( $header =~ /(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)(\w*)\s(\d\d),\s(\d\d\d\d)/s )
  {
    my $monthstr = $1 . $2;
    my $day = $3;
    my $year = $4;
    my $month=$months{$monthstr};
    
    $datestr = sprintf ( "%04d-%02d-%02d", $year, $month+1, $day );
  }

  my $DID = main::AddDate ( $datestr );