perl -le "while(1){$a=$a?$a:ord'a';print chr$a;$a=++$a%ord'{';sleep 1}"