Here's one way, open local(*STDOUT), '|-', $ENV{'PAGER'} or warn $!; If the PAGER environment variable is not set, that will just warn you and go on.

C.

You mention Activestate, so I don't know whether the above suggestion of checking $ENV{'PAGER'} will work under that (it being a unixy convention) but one way or another you should be able to use the DOS pager more. RTFM, but either you can redirect the text to more, or write a temporary file, then more \tmp\mytmpfile.txt with a system call.


the hatter

#!/usr/bin/perl

if(! defined $ARGV[0]){print "Need a file(s)\n";exit;}

foreach my $file (@ARGV){
   open (FH,"< $file") or warn "$!\n";
     while(<FH>){
        for(1..25){
          my $line;
          if( $line = readline FH ){ print $line };
        }
     print "Hit Enter for more or Control-c to Quit\n";
     my $input = (<STDIN>);
   }
 close FH;
}
[download]