use strict;
use warnings;

use Test::More tests => 1;
use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new;
my $res = $ua->get ('https://www.microsoft.com/uk-ua/');
is ($res->code, 200, 'Download succeeded');
diag (qq#
LWP: $LWP::VERSION
IO::Socket::SSL: $IO::Socket::SSL::VERSION#);