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