I missed something..

use Socket;
> $port = "4000";
> $host =  "localhost";
> $this = sockaddr_in($port,inet_aton($host));
> for (0..30) {
>   if (!fork()) {
>     for (0..50) {
>       my $sock;
>       socket ($sock, AF_INET, SOCK_STREAM, getprotobyname('TCP'));
>       connect($sock,$this);
>     }
>     sleep;
>   }
> }
> sleep;

Reply via email to