#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new;
$mech->env_proxy;
my $url = "http://127.0.0.1/downloads/index.html";
$mech->get($url);
my $link = $mech->find_link(text_regex => qr/really big download/i);

$mech->get($link);

__END__