#!/usr/bin/env perl

use strict;
use warnings;

use Term::ReadKey;
use IO::Pager::Perl;

my $t = IO::Pager::Perl->new( rows => 25, cols => 80 );
my $text = "this is a test text";

my $i=0;
do {
    $t->add_text($text." ".$i++."\n");
} while($i < 60);

$t->more();