socket

#!/usr/bin/perl -w
use strict;
use IO::Socket;
sub Wait {
wait;
}
$SIG{CHLD} = \&Wait;
my $server = IO::Socket::INET->new(
		LocalPort => 2018, # 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 '<body bgcolor=black> <center><font color=cyan size=20px>You Got Hacked By DK72</font></br></br></br><img src="https://cdn.yukepo.com/content-images/listicle-images/2017/06/03/43770.jpg" widht=20px hight=20px></br></br></br><font color=red>♥ GARUDA TERSAKTI TEAM ♥</font></center></body>';
}
continue
{
close($client); #kills hangs kill CHLD => -$$;
}