print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."=".$start_time."\n";
print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."NAME=".$mdate."\n";
my $dt = DateTime::Duration->new(years => 1900, hours => $hour, minutes => $min, seconds => $sec);
print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."=".$start_time."\n";
print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."NAME=".$mdate."\n";
my $dt = DateTime::Duration->new(years => 1900, hours => $hour, minutes => $min, seconds => $sec);