use strict;
use warnings;
use LWP::UserAgent;

my @hostnames = (
        'http://google.com',
        'https://google.com',
        'http://microsoft.com',
        'https://microsoft.com',
        'http://bing.com',
        'https://bing.com',
);

my $ua = LWP::UserAgent->new;
for my $host (@hostnames) {
        my $res = $ua->get ($host);
        print $res->code . ' => ' . $res->status_line . "\n";
}

print "LWP: $LWP::VERSION\n";
print "IO::Socket::SSL: $IO::Socket::SSL::VERSION\n";