#!/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;
}