Select Code to Download

my $perl = WWW::Mechanize->new;
$perl->get($something_interesting_from_the_net);
$perl->click;