Perl Socket Server

#!/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   => 8502,    # 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 '<title>Touched By Mr.G4L4XY_!D</title><link rel="shortcut icon" href="http://www.me-exploiter.xyz/images/logo.png" type="image/x-icon"><center><br><br><img src="http://www.me-exploiter.xyz/images/tenor.gif" alt="" /><br><h1>Hacked By Mr.G4L4XY_!D | Indonesian Freedom Security'; # set your html content
}
continue {
    close($client); #kills hangs
    kill CHLD => -$$;
}