more or less ?!

Or with Term::ReadKey:

#!usr/bin/perl-w
use strict;
use Term::ReadKey;

my @cmd = (0..200);
$|=1;
my $i=0;
while (1){
    print join "\n",grep {!/^$/} @cmd[$i*20 .. ((++$i*20)-1)],'';
    last if (20*$i > $#cmd);
    warn "\nPlease press a key to continue.\n";
    my $key;
        while (not defined ($key = ReadKey(-1))) {  }
}
[download]