#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

my @pages = (
        'http://www.perlmonks.org',
        'http://www.perlmonks.com',
        'http://www.perlmonks.net',
        'http://www.perlmonks.edu',
        'http://www.perlmonks.co.uk',
        'http://perlmonks.perl.org'
);

foreach my $page(@pages) {
        if (head($page)) {
            print "Exists\n";
        }
        else {
            print "It doesn't exist\n";
       }
}