- or download this
my $ticker=['http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss'
+,
"http://rss.news.yahoo.com/rss/science"]->[rand 2];
- or download this
my $ticker=('http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss'
+,
"http://rss.news.yahoo.com/rss/science")[rand 2];
- or download this
my $ticker=(qw(http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rs
+s
http://rss.news.yahoo.com/rss/science))[rand 2];
- or download this
my $ticker=qw(http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss
http://rss.news.yahoo.com/rss/science)[rand 2];