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;
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)