use Date::Manip; sub fakedate { my ($lower_bound, $upper_bound) = @_; my $timestamp = $lower_bound + int (rand $upper_bound - $lower_bound +1); return UnixDate( "epoch $timestamp", "%d-%m-%Y %H:%M:%S" ); }