Fork of CNN dada by Páll Thayer (GPLv3) http://pallit.lhi.is/microcodes/

gistfile1.pl

#!/usr/bin/perl
use LWP::Simple;
`clear`;
$width  = `tput cols`;
$height = `tput lines`;
$text   = get 'http://rss.cnn.com/rss/edition.rss';
$text   =~ s/<[^>]+>//g;
@words  = split ' ', $text;

sub color { "\e[", 31+int(rand(7)), ";40m", @_, "\e[0m" }

while(1){
  system 'tput', 'cup', int(rand $height), int(rand $width);
  print color $words[int(rand @words)];
}