in reply to printing multiple pages

Print the feed character before every page except the first one: 
my $first = 1;
until (0 == int rand 10) {  # The number of pages is unknown in advanc
+e.
    print "\f" if ! $first;
    undef $first;
    print "page...\n";
}

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: printing multiple pages
by hvn52 (Initiate) on Jan 06, 2014 at 15:17 UTC
    Thank for your response. What use is it to print it before every page ?
[reply]
      Before every page except the first one is the same as after each page except the last one, which is what I understood you had requested.
      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]

In Section Seekers of Perl Wisdom