#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;

DOMAIN:
while (my $domain = <DATA>) {
    chomp($domain); 
    for my $protocol (qw/http https/) {
        next DOMAIN if test_url("$protocol://$domain");
        for my $sub (qw/www web/) {
            next DOMAIN if test_url("$protocol://$sub.$domain");
        }   
    }   
    print "Couldn't get anything from $domain\n";
}   

sub test_url {
    my $url = shift;
    print "Trying $url ...";
    my $ua = LWP::UserAgent->new(
        timeout     => 5,
        agent       => 'Mozilla/5.0',
        ssl_opts    => { verify_hostname => 0 },
    );  
    my $response = $ua->get($url);
    if ($response->is_success) {
        print "OK\n";
        return 1;
    }   
    else {
        print "FAILED because " . $response->status_line . "\n";
        return undef;
    }   
}   

__DATA__
google.com
apple.com
fred.com
dschjksdbckjqh.com