Term::Screenで遊んでみた。

use strict;
use warnings;
use utf8;
use Term::Screen;
use Time::HiRes qw/sleep/;
use Data::Dumper;

my $scr = Term::Screen->new or die "KUSOTTAREEEEEEEEEEEEEEEEEEEEE!";
my $text;
for my $i (1..100) {
    if ($scr->key_pressed && $scr->getch eq 'q') {
        $scr->flush_input;
        last;
    }

    my $at = $scr->clrscr->at(1, 0);
    $at->puts($i.'%');
    sleep(0.1);
}

$scr->at(2, 0)->puts('* finished!');

おもしろい。sleepしないと一瞬で終わっておもしろくないのであえてsleepしてる。

cpanmしてもテストで止まるので、

perl Makefile.PL
make
make test # ここでちょっと遊ぶ
make install

して入れた。
Ctrl + nすると思いっきり文字化けするのは俺の環境が原因なのかな。