#!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))) {  }
}