Help for this page
sub fakedate { my ($lower_bound, $upper_bound) = @_; ... $bits[4]++; #month comes back as 0-11 sprintf("%02d-%02d-%4d:%02d:%02d:%02d", @bits[3,4,5,2,1,0]); }