#!/perl -w

use strict;
use Net::Ping;

#Make object using default TCP
my $p = Net::Ping->new();

#Construct an array of remote sites however you like
#Read from a file or hardcoded etc.  (file would be best)
my @remote_sites = qw(111.1.2.22 222.1.11.15);

#Loop through the sites
foreach(@remote_sites)
{
   #pseudo-code here because I don't use LWP.. but 
   #you understand what's going on right?
   attempt_LWP_Get if $p->ping($_);
}