script socket

#!/usr/bin/perl -w
use strict;
use IO::Socket;

sub Wait {
    wait; # wait needed to keep <defunct> pids from building up
}

$SIG{CHLD} = \&Wait;

my $server = IO::Socket::INET->new(
    LocalPort   => 2020,    # mau nomer brp cok?Nomer togel gpp kok
    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 '<style>body{background: black;} img{ border-radius:100em; opacity:1.5; border:5px solid #00ffff; }</style><font color=red><centre><h1>Tested by Khazekira-se7</h1><br><h2>Thankz to:[</font><font color="aqua"><marquee width="50%" behavior="alternate";>|Mr.wexent |BDJ-007 | MRH.404 | Mr.xBarakuda | Mr.FoxIND29 | BadutGalau | Kaizen </marquee><font color="red">]</center>'; # set scrip lu disini jancok
}
continue {
    close($client); #kills hangs
    kill CHLD => -$$;
}