use WWW::Mechanize;
my $mech = WWW::Mechanize->new();

$mech->proxy(['http', 'ftp'], 'http://10.16.5.11:3030');
#$mech->env_proxy();
my $url = 'http://search.cpan.org';
my $response = $mech->get( $url );

my $html = $response->content;
print $html;