sub fakedate {
    my ($lower_bound, $upper_bound) = @_;
    my $timestamp =  $lower_bound + int rand ($upper_bound - $lower_bound +1);
    my @bits = (localtime($timestamp))[0..5];
    $bits[5]+=1900; # year
    $bits[4]++;  #month comes back as 0-11
    sprintf("%02d-%02d-%4d:%02d:%02d:%02d", @bits[3,4,5,2,1,0]);
}