#!/usr/bin/perl

use LWP::Simple;

$host="http://www.localhost.net/";
chomp $host;

$web="index.php";
$web="situ.html";

for ($i=1;$i<3;$i++)
{

$cont=web.$i;
chomp $cont;
print "$cont\n";

$final=$host.$cont;

if (head($final)) {
print "$final existe";
 
 }
  }

#!/usr/bin/env perl

use LWP::Simple;
use strict;

my $host = "http://www.localhost.net/";
my @web = qw(index.php situ.html);

foreach my $url ( @web ) {
    if ( head($host . $url) ) {
        print "$host$url existe\n";
    }
}

use HTTP::Request;
use LWP::UserAgent;