LWP::UserAgent fejler med HTTPS når der skal benyttes proxy

Hej

Jeg har fundet følgende kode stump den virker fint indtil jeg prøver fra en maskine der har brug for en proxy så går det galt, jeg kan se med netstart at der ikke skabes kontakt til proxy serveren.


use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

$ua->proxy(['http', 'ftp'], 'http://proxy:80/');

my $req = HTTP::Request->new(GET => 'https://www.helsinki.fi/');
my $res = $ua->request($req);
if ($res->is_success) {
    print $res->as_string;
    }
    else
    {
    print "Failed: ", $res->status_line, "\n";
    }