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