use strict;
use warnings;

use LWP::UserAgent;

my @hostnames = (
        'google.com',
        'microsoft.com',
        'bing.com'
);

my $ua = LWP::UserAgent->new;
for my $host (@hostnames) {
#        my $res = $ua->head ("https://$host/");
        my $res = $ua->get ("http://$host/");
        print $res->code . "\n";
}