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

my @IP = qw/ 192.168.1.1 192.168.1.2/;
my $url = '/home/index.html';

foreach (@IP) {
    print "TESTING: $_$url\n";
    my $reply = get("http://$_$url");
    #test reply here, etc...
    
}