#! perl

use Term::Pager;

my $t = Term::Pager->new(
	 # change colors
	 MN => "\e[1;34;43m",
	 ML => "\e[7;32m",
);

for my $i (0 .. 100){
    $t->add_text( sprintf("%4d %s\n", $i, 'a' x (rand(70) + 30)) );
}

$t->add_func( 'p', \&printing );

$t->more();

sub printing {
    my $me = shift;

    my $t = $me->box_text( 'Printing...' );
    $me->disp_menu($t);
    # system( 'lpr', '/vmunix' );
    sleep 2;
    $me->remove_menu();
}