require WWW::Mechanize;
my $mech = new WWW::Mechanize;
$page = $mech->get("http://www.google.com");
$page->find_link(text => 'download');