Follow
5-line hell webserver coded in perl by me (im sorry)
print socket qw , a 2 1 tcpTCP6 ,;
print setsockopt qw , a 1 2 000,;
print bind a, "\x02\x00\x1f\x90\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
print listen qw , a 128 ,;
print c qq ~welcome to my hell server! it is: @{[scalar localtime(),"\n"]}~ and close c while accept qw , c a ,
please note that on line two directly before the "000" there's supposed to be a raw 0x01 byte but for some reason everything strips it