if(++$line > $LINEMAX) {
     $line=0;
     getc;
}
[download]

sub print2 {
 if(++$line > $LINEMAX) {
     $line=0;
     getc;
 }
 print @_;
}
[download]

Don't assume that more is the right pager to use. It irritates those of us who joke that less is more. Here is a better way:

use vars qw(%Config);
use Config qw(%Config);
print "My pager is $Config{pager}\n";
[download]

arhuman,


Thanks for you quick response and answer to my question! It now works the way I wanted.

Can you please explain what the 'getc'is??

Also If I wanted to use the 'more' command, where would I put it in my script?? I tried several areas and it didnt work.

You're welcome...

For the getc you better read the doc (or follow the link) as it will be more accurate and clear than I could ever be.
(anyway perldoc and/or SuperSearch and/or the camel book, must now be a a reflex for you Perl lover ;-)

Now for the use of the more command, just forget about using 'more' IN your script, use it the unix way
(joining several simple but efficient commands to do a complex task...) via pipe.
Only display the lines on the screen in your script and then using 'more' for the paging part :

perl yourscript.pl | more


"Only Bad Coders Code Badly In Perl" (OBC2BIP)