sub format_date_mdy {
    my($date) = @_
    my $dt = parsedate($date);
    return strftime("%m%d%y", localtime($dt));
}