+ my @items = split (/\001\001/, $body);
+
+ # Let's skip forward in the stream by a random amount, so that if
+ # two copies of ljlatest are running at the same time (e.g., on a
+ # multi-headed machine), they get different text. (Put the items
+ # that we take off the front back on the back.)
+ #
+ if ($#items > 10) {
+ my $n = int (rand ($#items - 5));
+ while ($n-- > 0) {
+ push @items, (shift @items);
+ }
+ }
+