use LWP::UserAgent;
use HTTP::Cookies;
use URI;

$ua = LWP::UserAgent->new(agent =>'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)',
			timeout => 40,
            requests_redirectable => ['GET', 'HEAD', 'POST']);
$ua->cookie_jar($cookie_jar_tmp);
$ua->proxy(['http', 'https'] => 'http://null:null@proxy:8080');
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
print $res->request->url;
print $res->status_line;