#!/usr/bin/perl
# Random integers in 1..$range with replacement, by KWR
  use strict;
  use warnings;
  my $range = 399;
  my $sampleSize = 40;
  my $pageSize = 20;  # WordPress default
  my $numPages = 1 + int(($range - 1)/$pageSize);
  my $randomNumber;

  my $i = 1;
  while ($i <= $sampleSize) {
     $randomNumber = 1 + int(rand($range));
     my $page = 1 + int(($range - $randomNumber)/$pageSize);
     my $fromTop = $pageSize - ($randomNumber - $pageSize*($numPages - $page));

     print "$i : $randomNumber, page $page num. $fromTop\n";
     $i++;
  }