#!/usr/bin/perl

use WWW::Mechanize;

open (FILE,"/tmp/ip-listing.txt")
while(<FILE>)
{
 chomp;
 $SIG{CHLD} = 'IGNORE';         # Zombies verhindern
 my $pid = fork();
 if ($pid == 0)
 {
 &UNTER ($_);
 exit;
 }

}
close (FILE);

sub UNTER
{
  $ip = shift;
  my $browser = WWW::Mechanize->new( autocheck => 1, timeout => 5 );
  $browser->get( "http://$ip/index.html" );
}