Select Code to Download

 
my $agent = WWW::Mechanize->new();
$agent->get("http://my.server.com/");
...
$agent->follow("Some Link");
 
print $agent->content();