view release on metacpan or  search on metacpan

eg/f7progress  view on Meta::CPAN

initscr;
curs_set 0;

addstr 0, 0, "waiting for progress messages...";
refresh;

my %ID;
my $updater;
my @log;

sub updater {
   undef $updater;

   erase;

   my @id = sort { $b->[1] <=> $a->[1] } values %ID;

   delete $ID{(pop @id)->[0]}
      while @id > $cnt;

   my $y = 0;