#!/usr/bin/perl 
# test_url.pl
use strict;
use warnings;
use LWP::Simple;
my $ip="";

my $url = '/home/index.html';

while(defined($ip=<STDIN>)) {
 my $reply = get("http://$ip$url");
 warn "couldn't get $ip$url\n" unless defined $reply;
}