#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

my $url = 'https://www.helsinki.fi';

my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);

$response->is_success or 
    die "Failed to GET '$url': ",$response->status_line;

print $response->as_string;

##</code><code>##

Failed to GET 'https://www.helsinki.fi/': 500 SSL negotiation failed: at P:\Perl\bin/ssltest.bat line 15.