use LWP::Simple;

open(FILE, "<scan.txt") or die "\nDatei kann nicht geöffnet werden!\n";
my $host = <FILE>;

foreach ($host) 
{
    get ("[URL=http://$host/index.html]http://$host/index.html"[/URL]) or die "Keine Index Datei";
      print "\nIndex Datei vorhanden";
    print "\n$host";
}
close FILE;