UDP flood in Perl    # udp flood. use Socket; use strict; if
($#ARGV != 3) {   print "flood.pl <ip> <port> <size>
<time>\n\n";   print " time=0: continuous flood\n";
socket(flood, PF_INET, SOCK_DGRAM, 17);      1. If you need to
flood low-speed ling, ping -f is always handy. :)    2. Or you
can just use iperf...      iperf -u -b #[KM] -c [host]    3.
Hey, it isn't the most efficient way to flood out some
destination with as many packets per second as the machine
can... when you really want to do that efficiently you should
use linux and select kernel option: CONFIG_NET_PKTGEN and then
use software that will use this feature. Take a look at a
documentation Documentation/networking/pktgen.txt     4.
s/software/script      for example:
ftp://robur.slu.se/pub/Linux/net-development/pktgen-
testing/examples/pktgen.conf-1-1    5. As I wrote ... just in
case you don't have a dedicated program handy, use this PERL
script. Obviously there are MANY more efficient ways to
implement flood than an interpreted language :)