Fetch a random animal name suited for wiki page tagging

Wiki tag generator

$ perl -MMojo::UserAgent -le 'Mojo::UserAgent->new->detect_proxy
->get("http://en.wikipedia.org/wiki/Chart_of_English_animal_nouns")
->res->dom->find("table.wikitable tr td a")
->shuffle->slice(0..2)->each(sub { print $_->text } );'

Can't call method "text" on an undefined value at -e line 4.

Use a proxy where needed.

~ $ echo $http_proxy
http://proxy_from_work:3128
~ $ perl -MMojo::UserAgent -le 'print Mojo::UserAgent->new

->get("http://en.wikipedia.org/wiki/Chart_of_English_animal_nouns")
->res->dom->find("table.wikitable tr td a")
->shuffle->first->text;'
Can't call method "text" on an undefined value at -e line 1.
~ $

There, added ->detect_proxy for you ;)