use strict;
use Curses;

my $win = Curses->new;

for (0..60) {
   $win->addstr(10, $_, 'x');
   $win->refresh;
   select(undef,undef,undef,.02); # sleep for less than a second
   $win->clear;
}