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 …