Problem mit LWP::UserAgent

[Michael]

ich habe gerade das Bsp probiert:

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
  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";
  }

funzt aber auch nicht. Es kommt immer wieder die Meldung
Failed: 500 Can't connect to www.helsinki.fi:443 ()

mache ich irgendetwas falsch??

Michael