Chyba LWP :: UserAgent a proxy - perl

Mám proxy chybu pri použití LWP :: UserAgent

toto je kód:

my $ua = LWP::UserAgent->new();
$ua->proxy( http => $ENV{HTTP_PROXY});
print Dumper($ua);
my $request = new HTTP::Request("GET", $link);
print Dumper( $request );

a toto je dumper pre UserAgent

$VAR1 = bless( {
"max_redirect" => 7,
"protocols_forbidden" => undef,
"show_progress" => undef,
"handlers" => {
"response_header" => bless( [
{
"owner" => "LWP::UserAgent::parse_head",
"callback" => sub { "DUMMY" },
"m_media_type" => "html",
"line" => "C:/Perl/lib/LWP/UserAgent.pm:612"
}
], "HTTP::Config" ),
"request_preprepare" => bless( [
{
"owner" => "LWP::UserAgent::proxy",
"callback" => sub { "DUMMY" },
"line" => "C:/Perl/lib/LWP/UserAgent.pm:920"
}
], "HTTP::Config" )
},
"no_proxy" => [],
"protocols_allowed" => undef,
"local_address" => undef,
"use_eval" => 1,
"requests_redirectable" => [
"GET",
"HEAD"
],
"timeout" => 90,
"def_headers" => bless( {
"user-agent" => "libwww-perl/5.837"
}, "HTTP::Headers" ),
"proxy" => {
"http" => "http://igate:8080"
},
"max_size" => undef
}, "LWP::UserAgent" );

A to je pre žiadosť:

$VAR1 = bless( {
"_content" => "",
"_uri" => bless( do{(my $o = "https://some_link")}, "URI::https" ),
"_headers" => bless( {}, "HTTP::Headers" ),
"_method" => "GET"
}, "HTTP::Request" );

problém je, že odpoveď je chyba:

FAIL response, 500 proxy connect failed: PROXY ERROR HEADER, could be non-SSL URL:
HTTP/1.1 503 Service Unavailable

Používam ActiveState perl 5.10.1 na stroji WinXP

pri prístupe na odkaz z prehliadača funguje

Môže niekto pomôcť?

Vďaka

odpovede:

Vždy som potreboval nastaviť https_proxy (skôr ako len http_proxy) na prácu s URI SSL.