#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
use LWP::Simple; 
 
my $host = 'http://your_host.com/"; 
 
unless (head($host)) { 
  print "Seems to be a problem with $host\n"; 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use LWP::Simple; 
 
@hosts = ("www.domain4.com","www.domain3.com","www.domain2.com","www.domain1.com"); 
 
foreach $host(@hosts){ 
   unless (head($host)){ 
      print "There seems to be a problem with $host\n"; 
   } 
}

use LWP::Simple;  
  
@hosts = ("http://www.google.co.uk","http://www.dfhasjkdfhjkasf.com"); 
  
print "Content-type: text/html\n\n"; 
 
foreach $host(@hosts){  
   if (head($host)){  
      print "$host ... OK<br>\n";  
   } 
   else { 
      print "$host ... Error<br>\n"; 
   } 
}