#!/usr/bin/perl
#without a newline, it won't print
#until the buffer is 2k

#$|=1;  # try it with and without this line :-)

while (1){
print 'aaaaaa';
select(undef,undef,undef,.03);
}