use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new;
   $mech->get("http://kernel.org");
   $mech->get( $mech->find_link(text=>"F")->url, ":content_file"=>"current-kernel.tar.bz2" );