my $url='http://mysite.com/test.html';
my $proxy_url='http://myproxy.com';
my $browser = LWP::UserAgent->new;
$browser->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
$browser->timeout(10);
$browser->proxy(['http', 'ftp'], $proxy_url);
my $request = HTTP::Request->new(GET => $url)|| print($!);
my $response = $browser->request($request)|| print($!);
if ($response->is_success)
{
my $content= $response->content;
return $content;
}
else
{
my $content= $response->status_line();
return $content;
}