perl -MWWW::Mechanize -e "$a=WWW::Mechanize->new(
); $a->get('http://safari.oreilly.com'); @links=$a->links();$a->follow_link(url=>$links[5]->[0]);"
#result
Unexpected field value http://safari.oreilly.com at (eval 5) line 1