my $first = 1;
until (0 == int rand 10) {  # The number of pages is unknown in advance.
    print "\f" if ! $first;
    undef $first;
    print "page...\n";
}