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(…
