my $ticker=qw(http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss
            http://rss.news.yahoo.com/rss/science)[rand 2];